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ABSTRACT 

This  report  documents  computer  programs  that  can  be  used  to  create, 
update,  and  operate  standard  models  designed  to  fit  into  ERS's  World 
Grains,  Oilseeds,  and  Livestock  (GOL)  model.  The  first  part  of  the 
report  outlines  programs  of  TROLL  commands  which  carry  out  tasks 
necessary  to  model  development  and  operation.  The  second  part  of  the 
report  documents  ways  of  creating  sets  of  these  TROLL  commands  using  the 
mainframe  or  micro  computer.  To  the  extent  that  GOL  component  models 
have  standard  functional  forms  across  commodities  and  countries,  these 
groups  of  TROLL  commands  and  parent  programs  greatly  simplify  GOL  model 
management . 
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Introduction 


The  world  Grain,  Oilseeds,  and  Livestock  (GOL)  model  is  maintained  in 
the  TROLL  computer  simulation  and  econometric  modeling  package.  This 
report  illustrates  the  structured  use  of  groups  of  TROLL  commands  to  build 
and  maintain  standard  GOL  component  models.  Enough  detail  of  typical 
support  programs  is  given  to  aid  the  researcher  in  efficiently  using  TROLL 
for  model  building  and  operation,  given  his  willingness  to  accept  some 
standarization  of  model  components.  The  report  also  presents  alternative 
ways  of  creating  groups  of  TROLL  statements  for  various  purposes  on  the 
mainframe  and  micro  computer. 

The  structured  TROLL  commands  and  their  parent  programs  simplify  the 
creation,  maintenance,  and  documentation  of  GOL  model  components.  They 
are  designed  to  make  the  full  model/simulation  and  documentation 
capability  of  TROLL  readily  available  to  creators  of  GOL  component  models. 


Assistance  in  the  development  and  documentation  of  these  programs 
was  given  by  staff  of  the  Trade  Policy  Branch  including  John 
Sullivan,  Carol  Stillwagon,  William  Kost,  Rose  Mayhew,  and  Theresa 
Wells,  and  John  Gawalt. 
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I.  Programs  of  TROLL  Statements  to  Support  a  GOL  Standard  Country  Model 
I-A.  General  Description 

Although  TROLL  is  an  interactive  system,  sets  of  computer  programs 
containing  TROLL  commands  can  be  submitted  in  the  batch  mode  to  carry  out 
most  computational  tasks  necessary  for  the  construction  and  maintenance 
of  standard  GOL  model  components.  1/  The  programs  can  be  structured  in  a 
way  to  simplify  the  creation  and  management  of  standard  country  models. 
They  allow  for  the  cost-effective  use  of  TROLL  instructions  for  managing 
a  large  model  in  the  batch  mode. 

This  report  contains  illustrative  TROLL  programs  used  for  the 
standard  GOL  model  for  the  United  States  (USGOL).  These  programs  may  be 
cloned  from  the  USGOL  versions  and  text  edited  to  any  desired  country 
nomenclature  and  to  alternative  purposes.  Parts  of  the  programs  can  be 
created  on  the  micro  computer.  The  documented  programs  are  also  useful 
guides  to  the  use  of  TROLL  commands  to  carry  out  various  types  of 
modeling  tasks. 

The  TROLL  programs  have  been  set  up  to  run  as  TROLL  "MACRO"  programs 
in  order  to  eliminate  unnecessary  output  and  minimize  costs.  Other  cost 
minimization  features  of  TROLL,  such  as  "in-core"  calculations,  have  also 
been  incorporated.  Nevertheless,  the  size  and  complex  nomenclature  of  a 
typical  standard  GOL  model  still  means  that  many  TROLL  tasks  may  be 
expensive.  Until  experience  is  gained,  most  programs  should  be  run  in 
batch  mode  at  the  lowest  priority.  These  types  of  programs  can  be 
submitted  directly  to  batch  through  cards  or  can  be  put  on  TSO  files  and 
submitted  to  batch  processing  from  the  TSO  interactive  mode.  By  using 
the  batch  mode,  considerable  cost  savings  can  be  made.  The  programs  have 
been  named  using  TSO  compatible  naming  conventions. 

If  structural  changes  (different  equations,  different  variables, 
etc.)  are  made  in  the  standard  model,  care  has  to  be  taken  to  insure  that 
associated  changes  are  also  made  in  some  of  these  support  programs. 

TROLL  user’s  manuals  will  have  to  be  consulted  regarding  problems  with 
individual  TROLL  commands. 


1/  The  reader  should  refer  to  appropriate  TROLL  manuals  for  details  on 
TROLL  commands.  See;  TROLL  Reference  Manual,  Second  Edition,  Revised 
1979,  by  the  M.I.T.  Center  for  Computational  Research  in  Economics  and 
Management  Science,  Cambridge,  Massachusetts  02139.  For  details  about 
operation  of  the  IBM  Time  Sharing  Option  (TSO),  consult  the  ERS  Data 
Reference  Center. 
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I-B.  Documentation  of  TROLL  Support  Programs 

The  annotated  program  excerpts  listed  below  are  sets  of  TROLL 
commands  which,  when  executed,  perform  various  tasks  needed  for  the 
creation  or  operation  of  a  standard  GOL  country  model.  Complete 
documentation  of  TROLL  commands  can  be  found  in  the  various  TROLL  user's 
guides  and  reference  manuals.  Comments  above  the  program  listing  give  a 
brief  general  description. 

A  "cloning"  process  for  creating  TROLL  support  programs  or  parts 
thereof,  simply  changes  the  country  code,  currency,  and  country  name  from 
U.S.  nomenclature  to  the  nomenclature  for  the  selected  country.  Then  a 
copy  can  be  made  for  use  with  the  selected  country  model. 

In  the  presentation  of  a  program  excerpt,  a  short  description  is 
given  followed  by  a  listing.  Long  repetitive  parts  of  the  program 
listings  have  been  omitted  (marked  by  3  vertical  lines)  to  reduce  the 
size  of  the  documentation.  However,  enough  of  the  listing  is  presented 
to  give  an  indication  of  how  various  computational  tasks  are 
accomplished.  The  selected  documentation  serves  as  a  guide  to  structured 
methods  of  managing  a  standard  model  as  well  as  to  the  TROLL  syntax  that 
applies  to  the  illustrated  tasks.  The  documented  TROLL  statements  which 
are  illustrated  are  those  applied  to  the  USGOL  version  of  the  standard 
country  model. 

Typically,  the  programs  begin  with  a  TROLL  OUTOPT  command  which  sets 
printer  options.  Then  comments  which  will  be  printed  upon  execution  are 
sandwiched  between  a  "PRINT"  and  "END"  command.  When  these  programs  are 
submitted  as  TROLL  "MACRO"  programs,  the  printed  message  helps  to 
identify  the  output.  Program  segments  and  the  transition  between 
segments  are  presented  to  highlight  the  syntax  that  must  be  observed. 

A  listing  of  the  standard  country  model  and  its  TROLL  documentation 
can  be  found  in  a  report  by  Roningen  and  Liu.  2/  Standard  models 
presented  in  that  report  were  largely  created  via  the  techniques 
presented  in  this  report. 


I-B.l.  Programs  to  Create  a  Standard  Model 

A  series  of  programs  of  TROLL  statements  can  be  used  to  create  a 
standard  country  model  and  its  supporting  files.  These  statements  are 
TROLL  commands  which  enter  model  equations  into  TROLL  using  TROLL  MODEDIT 
commands.  Modification  of  the  standard  model  for  a  country  then  can  be 
done  by  inserting  TROLL  MODEDIT  instructions  into  the  programs  CUST0MI2 
or  by  working  interactively  in  TROLL. 


y  _  The  World  Grain,  Oilseeds,  and  Livestock  (GOL)  Model  -  Background 
and  Standard  Components,"  by  Vernon  Roningen  and  Karen  Liu,  ERS-IED  Staff 
Report  No.  AGES830317,  Washington,  D.C.  1983. 
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I-B.l.a.  USGOLESM  -  Enter  a  Standard  Country  Model  into  a  TROLL  File 

This  program  enters  a  new  country  model  into  a  TROLL  file.  It 
establishes  the  country  symbol  nomenclature  and  enters  standard 
equations.  It  also  serves  as  a  backup  file  for  a  TROLL  country  model. 

In  order  to  change  the  standard  model,  it  is  better  to  use  a 
systematic  approach  (as  the  illustrated  in  the  program  CUSTOMIZ)  rather 
than  tamper  with  the  complicated  syntax  of  this  program  on  an  ad  hoc 
basis.  If  the  country  model  is  changed  significantly  from  the  standard 
model,  the  TROLL  SOURCEMOD  command  can  be  used  to  prepare  a  new  backup 
card  deck  of  model  creation  instructions. 


OUTOPT  RMARG  132  FPTFIFLD  14  TAbWIDT*  7  I 
SPRINT 


Establish  printout  characteristics 


USGOlES*  •  ENTER  STANDARD  GOL  COUNTRY  MODEL  INTO  A  TROLL  FILE. 


DELETE  MODFL  USGOL«  model 


Establish  new  model  name  title  to  nark  Program  - 


Add  symbols  for  the  model 


USEMOD  USOOLI  < - 

addsyJT  *  < -  Enter  the  TROLL  MOEEDIT  mode 

ENDOGENOUS  »N  'NX  ' NX  S  'NPOl"  ♦ 

DEFINITION  'DEF  * 

EXOGENOUS  'X  • XN  'XNS  'XP  . 

POLICY  'POL  'POLN  'POLP  ♦ 

FUNCTION  » F  « 

COEFFICIENT  «C  * 
parameter  »P  »PX  »PP0L  tl  ^ 

t  _ Add  equations  to  the  model 

ADOEO  BOTTOM 

USMDBF  I  USMOBF'N  •  I ISMDBF I  •  C*  (  USPNG  '  X/USPDBF  '  N  )  **USMDBFPC  '  C*  ( L'SPNG  '  X  ( -1 )  / 
USPDBF'N(-1 ) )**USMDBFPL'C*USPORF  »Nt 

USMDPK  l  USMDPK'N  •  USMDPKJ  'C*(USPNG'X/USPDPX'N)**U5>I’0PKPC'C*(USPNG'X(*1)/ 
USPDPK'N(-l) )**USMDPKPL  »e*U$PDPK'N. 

USMDML  i  USMDML'N  ■  ilSMOMLI 'C*(USPNG'X/USPDML'N)a*USMDmlpCC*<USPnG'X(»1)/ 
US°DmL ' N ( ) )**USmDmLPL 'C*USPDmL'N* 

USMDDM  t  USMODM'N  •  tJSMD0M!  •  C*  (  USPNG  '  X/USPOD*  '  N  )  **USmDOmPC  '  C*  <  L'SPNG  '  X  (  «1 )  / 
USPDDm ' N ( »1 ) )P*USMOUMPL 'CpUSPDDM'N, 

USMDPm  i  USMDpm  t N  •  ijSmdpmi  iC*(USPNG'X/USPOPM 'N)**usmdPmpC  '  C*(L'SPNG»  X(«l )  / 
USPDPM'M-l )  )**USmOPMPL'C*USPDRM'N. 
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USPOSH  i  USPOSR'N  ■  I F  USPESB'OEF  LT  USPTSB  '  XNS4US**TSB  •  N4USTM$B  '  pOLN4 
USTCSB'PfUN  AND  USPESB'DEF  Gt  USPTSB ' XNS-USmTSB ' N4US*DSB • n-uSTESB ' POLN4 
U$TCSR ' POLN  OR  USOTSP'N  GE  USEOSB'POLN  0°  USOTSB'N  LE  -USmOSB'POLN  Then 
(  {  (ABSV'F (USPESB'OEF  >  4U$P  E  SB  '  DEE  )  /  2  )  *0 . 01 ) 

ELSE  (IE  USOTSB'N  LT  0  THEN'  ABSV  '  F  ( USPTSB  '  XNS4US*TSB  •  N  +  USTMSB  '  POLN  + 
USTCSB' POLN )  ELSE  ASS V» F ( USPTSB ' XNS-USMTSB » N4USM0SP ' N-USTESB ' POtN+U ST C SB ' POL*) ) ♦ 
USPOOS  l  USPOOS'N  *  USPEOS'DEF  LT  USPTOS ' XnS4USmT0S 1 N4USTM0S 1 POLN+ 
USTCOS'POLN  AND  USPEOS'DEF  GT  USPTOS  '  XNS-USmTOS ' N+US^DOS ' N-USTEOS • PQLN4 
USTCOS'POLN  OR  USOTOS'N  GE  USEOOS'POLN  0»  USQTOS'N  LF  -USmOQS'PQLN  Then 
( ( ( APSV'F(USPEOS 'DEF )4USPE0S'DEF) /? >40.01 > 

ELSE  (IF  USOTOS'N  LT  0  ThFn  ABSV * F ( USPTOS ' XNS+uS*TOS ’ N+USTmOS ' P0LN4 
USTCOS'POLN)  ELSE  ABSV»F(USPT05'XNS-USMT0S'N4USh00S 'N-USTEOS' POLN+USTCOS'POLN) ) , 
USPDSM  s  USPOSM'N  *  IF  USPE SM ' OE F  LT  USPTSM'XN$4USMTSM'N4USTMSM'P0LN4 
USTCSh'POLN  AND  USPESH'OEF  gt  USPTSh»xnS-UShTSh'n  +  USBDSh^-USTESm'P0LN4 
USTCSH'POLN  OR  USOTSB'N  GE  USEOS«'»OLN  OR  IJSOTSh'n  LE  •USmOSH'POLN  THEN 
( < (ARSV'F(USPESM»DEF)+USPESM'DEF)/2)*0.01) 

ELSE  (  I  F  USOTSM'N  LT  0  THEN  AB$V  »  F  (  USPTSm  '  XNS4USMTS*  •  n  +  USTMSh  '  POLN-f 

USTCSM'POLN)  ELSE  ABSV'F <U$PTSM'XNS»US"TSM'N4USmDSM'N-USTE$m«POln+U$TC$m'POLN> * ' 

U  S  P  L-  S  0  I  USPOSO'N  «  if  USPESO'DEF  LT  USPTSH  •  XNS4(JSmTSP  '  N4USPTS0  '  XNS* 
USTMSO'POLN/IOO+USTCSO'POLN  AND  USPESO'DEF  GT  USPTS0'XNS*US*t$0*N4U$mDS0,N- 
USTESO'POLN+USTCSO'POLN  OR  USOTSH'N  GE  USEOSO'POLN  OR  USOTSO'n  LE  •uSmOSO'POLN 
THEN  (( (ABSV'F (USPESO'DEF) ♦USPESO'DEF )/2) 40. 01) 

USE  (IF  USOTSO'N  LT  0  THEN 
A«SV  »F (  USPTSO*  XNS  +  USHTSO'N  +  USPTSO'XNS* 

USTHSO'POLN/lOOtUSTCSO'POLN)  ELSE 
ARSV' F(USPTS0' XNS-USHTS0*N+USMDS0'N-USTES0'P0LN4 
USTCSO'PHLN) ), 

USPOOM  |  USPOOM'N  ■  TF  USPEOH'OEF  LT  U$PT0m'XN$4USuT0h'N4USTmQw'P(JIN4 
USTCOh'POLN  Anh  US°EnM  *  OF  F  GT  USPTOm ' xn$-UShT0* ' n  +  US^DOm ' N«uSTE0m ' POLN* 
USTCOH'POLN  OR  USOTOS'N  GE  USEOOS'POLN  0®  USOTOH'N  LE  •UShOOM'POLN  THEN 
(  (  (  ABSV'F  (USPEOM  'DEF  >  ♦USPEO**'OEF  )/2)-fO,  01  ) 

ELSE  (IE  USOTOM'N  IT  0  ThFn  ABSV • F ( USPTOM ' XNS+U$mTOM i n+USTMOM ' P0LN4 
USTCOS'POLN)  ELSE  ABSV'F (USPTOM' XNS-USPTOM'N4USMOO“*N-USTEOs'PnLN4USTCOs'POLN) ) . 
USPDOO  8  USPOOO'N  ■  IF  USPFOO'OEF  LT  USPTOO ' XN$4US*T00 ' N4UST*00 ' P0LN4 
USTCOO ' POLN  AND  USPEOO'DEF  GT  USPTOO ' XN$-US*TOO ' N4USmD00 ' N-USTlOO * P0LN4 
USTCOO'POLW  OR  USOTOO'N  GE  USIOOO'POLN  OR  USOTOU'N  LE  «US*OQO'PULN  THEN 
(( (ABSV'F (USPEOO'OEF )+USoE00'DEF)/2)40.01) 

ELSE  (IF  USOTOO'N  LT  0  THFN  ABSV ' F ( USPTOO ' XNS+USmTOP ' N4USTMOO ' POLN4 
USTCOO (POLN)  ELSE  ABSV F ( USPTOO ' XNS-USmT 00 ' N+US*000 ' N-USTE 00 ' POLN4USTCPO ' POLN > ) , 
USPODB  1  USPOOB'N  ■  IF  USPEDR'OEF  LT  USPTOB ' XNS4USST0B  '  N+ ( ! F  -USOTOB'N  LT 
USTQOB'PPOL  Then  UST*«DR'POLN  else  UST00BM»PPOL*USTMDR'P0LN)+USTCDB'POLN  ano 
USPEDB'DEF  GT  USPTOB » XNS-US*TDR ' N4USSDOB • N-USTEDR ' P0LN4USTCDB • POLN  OR  USOTOB'N 
GE  USEOOB'POLN  OR  USQTOB'N  li  -usmodb'poln  then 
( ( (APSV'E(USPE08'DEF )4USPEDB»DEF )/2)40.01 )  ELSE  (IE  USOTOB'N 
LT  0  THEN  APSV«E( 

USPT0P#XNS4"SmT0B'N4( IF  -USOTOB'N  LT  USTOOB'PPOL  THEN  USTHQB'POLN 
ELSF  USTOORs*PpOL*USTMDB'POLN)4USTCDB'POLN)  ELSE 
ARSV'E ( USPTOB 'XNS-USMTDB' NtUSMDOB'N- 
USTEDB'P0LN4USTC08'P0LN) >* 

USPDPC  I  USPOOC'N  •  IF  USPEDC'DEE  LT  USPTDC ' XNS4USMTDC ' N4USPTDC • XNS* 
USTMDC'POLN/lOOtUSTCOC'POLN  ANO  USPEDC'DEF  GT  USPTDC ' XNS«US*TDC • N+USMDOC ' N- 
L'STEOC '  POLN4USTCOC '  POLN  OR  USOTDC'N  GE  USEODC'POLN  OR  USOTOC'N  LE  -USMODC'PULN 
THEN  (  (  (  ABSV  F  (USpEDC  '  DEF>4USPE0C  OFF  >/2)  40.01) 

ELSE  (IF  USOTOC'N  LT  0  THEN 

ABSV  »  F (  USPTDC ' XNS4USMTDC ' N+USPTDC ' XNS* 

USTmDC ' POLN/ 1004USTC0C POLN)  ELSE 
ABSV'F  (USPTDC  '  XN'S-USMTOC  •  N4USMD0C  '  N-USTEDC  '  P0LN4 
USTCDC'POLN) ) ♦ 

USPDOO  I  USPOOO'N  *  IF  USPEDO'OEF  LT  U$PTDP » XNS4USMTDO ' N4UST*DP ' P0LN4 
USTCOO ' POLN  And  USPEOO'DEF  gt  USPTOO ' XNS-US*TDO ' N4USMD00 ' n-USTEDO » PQLN4 
USTCDO'POLN  OR  USOTOO'N  GE  USEODO'POLN  OR  USOTDO'N  LE  »USMODO ' POLN  THEN 
( ( (ABSV'F (USPEDO'OEF  WUSPEDO'DEF )/2) +0,01) 

ELSE  (IF  USOTDO'N  LT  0  THEN 

ABSV'F (  USPTOO 'XNS4USMT DO 'N4USTHOO'POLN4 

USTCDO'POLN)  ELSE 

ABSV'F (USPTOO' XNS-USMTDO'N4USMDDO'N-USTEOO'POLN4USTCDn' PCJLN) ) • 

I  < — - - - 

print  all  cohmfntj^'  End  the  ADDEQ  routine 
eilemoo  usgoli  Print  the  model 

"’-■'-File  the  model  permanently 


A 


I-B.l.b.  USGOLEQC  -  Enter  Equation  Comments  into  the  Standard  Model 

Equation  comments  can  be  added  to  the  standard  model  by  this  program 
of  TROLL  MODEDIT  commands.  These  comments  are  not  necessary  for  model 
operation  but  they  label  each  equation  so  that  it  is  much  easier  to  read 
a  listing  of  the  model. 

The  comments  are  placed  at  the  equation  labelled  (in  the  model)  by 
the  symbolic  name  appearing  after  the  equation  number.  This  symbol  is 
given  directly  after  the  EQCOM  command.  These  statements  assume  that 
equation  symbolic  names  have  been  entered  with  the  equations  in 
USGOLESM.  The  MODCOM  statement  at  the  beginning  of  the  program  adds  the 
general  GOL  notation  to  the  standard  model  as  a  model  comment.  If 
equation  comments  are  lost  because  of  model  edits,  they  can  be  restored 
again  by  re-running  this  program. 


OUTOPT  RMARG  132  FPTFIELO  14  TA 0W J DTH  7  I 
SPRINT 


usgole^c—  e  sii  e  n.  eauA-riuv  c  o  n  n  e  n  t  $ 

* 

kind 

USfHOD  USGOll 

modediti  _ -Enter  the  model  comment 

modcoh  |  <: — 


NOTATION  FOR  ERS  GRAIN*  OIISFED.  ANO  LIVESTOCK  (GOL)  MODEL  I  SYMBOL  AND 
VARIABLE  NAMES  CONTAIN  UP  TO  8  CHARACTERS  AND  ARE  FOLLOWED  BY  A  SUFFIX 
WHICH  SHOWS  THF  DECLARATION  (E.G.  CONSTANT.  EXOGENOUS  VARIABLE.  ETC.).  THE 
FIRST  2  CHARACTERS  ARE  T«E  COUNTRY  CODE  ANO  THE  NEXT  2.  AN  EQUATION  *  TYPE-' 
CODE,  THE  NEXT  2  CHARACTERS  ARE  USUALLY  A  2  DIGIT  COMMODITY  CODE.  AN 
ELASTICITY  WILL  WAVE  2  MORE  CHARACTERS  INDICATING  The  CODE  TO  WHICH  ThE 
USGOLEQC  -  ENTER  EOUATION  COMMENTS  FOR  A  STANOARD  COUNTRY  MODEL 
elasticity  relates.  GENERALLY.  THE  number  OF  CHARACTERS  IN  A  symbol  HAS 
A  MEANING!  5  CHAR,  •  COUNTRY  SPECIFIC  VARIABLE.  6  CHAR,  a  COUNTRY  ANO 
COMMODITY  SPECIFIC  VARIABLE.  7  CHAR. (ENDING  WITH  t  T • )  ■  EQUATION  INTERCEPT. 

8  CHAR.  ■  COEFFICIENT/ELASTICITY.  COMMODITY  CODES  ARE*  8F  •  BEEF+VEAL* 

PK  ■  PORK.  ML  »  MUTTON*LAMRUGOAT)  .  Dm  ■  DAIRY-MILK.  PM  ■  POULTRY-MEAT. 

PE  ■  POUI  TRY-EGGS.  WH«  WHEAT.  CN  ■  CORN.  CG  ■  OTHER  COARSE  GRAINS. 

R I  a  RICF.  SB«  SOYBEANS.  OS  ■  OTHER  OILSEEDS.  Sm  ■  SOYMfAL*  SO  •  SOYOIL. 

OM  •  other  MEALS*  00  a  OTHER  OILS.  DB  •  DAIRY-BUTTER .  DC  •  DAIRY-CHEESE. 

DO  ■  DAIRY-OTHER  PRODUCTS,  EQUATION  ITYPE'  CODES  ARE!  MO  a  MARGIN-DOMESTIC* 
mt  a  MARGIN-TRADE.  PS  ■  PR  ICE-SUPPLY »  AR  a  AREA.  YO  ■  YIELD. 

OS  ■  QUANTITY-SUPPLIED.  OC  ■  QUANTITY-CRUSHED.  FC  ■  FEED  COST. 

LN  a  LIVESTOCK-NUMBERS*  LA  a  L I VF STOCK - ADD  I T I ONS ♦  LS  ■  L I VF STOCK-SLAUGHTER ♦ 

OF  a  QUANTITY-FED,  QO  a  OUANT I T Y-FOOD  ANO  OTHER  DEMAND,  SK  ■  ENDING  STOCKS* 

OT  a  QUANTITY-TRADED.  PE  a  PRICE  ESTIMATE  (DEMAND)  WITH  TRADE  RESTRICTIONS* 

PD  a  PRICE-DFMAND.  POLICY  VARIABLE  COOES  ARE*  EO  a  EXPORT  OUOTA. 

MQ  a  IMPORT  OUOTA,  TE  ■  TAX-EXPORTS*  TM  a  TAX-IMPORTS.  TP  ■  TAX-PRODUCT!ON, 

TC  ■  TAX-CONSUMPTION,  I . . 

. . . . . I 
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EQCOM  U$“DPF  * 


*»«*•**«••**** 

GRAIN,  OILSEEDS*  LIVESTOCK  COUNTRY  MODEL  •  UNITED  SPATES  (U$>  ************** 

•****•«*****•« 


DOMESTIC  MARGIN  EQUATIONS 


*  * 

MARGIN  (DOMESTIC!  -  REEF+VEAL! 

EOCOM  US“DPK  MARGIN  (DOMESTIC)  •  PORK|  < — 
EOCOM  USMDML  MARGIN  (DOMESTIC)  •  MUTTQN+LAMBl 


Enter  equation  comments 


* 

* 


FQCOM  USPEDC  PRICE  ESTIMATE  (DEMAND)  WITH  RESTRICTED  TRADE  -  OA 1R Y-CHEESF l 
EQCOM  USREDQ  PRICE  ESTIMATE  ( DEMAND )  WITH  RESTRICTED  TRADE  -  DAIRy-OThER  PROD, I 
EOCOM  USPDPF  * 

******************************************************************************** 
*  * 

*  DEMAND  PRICE  EQUATIONS  -  TRAOE  LINKED  OR  DOMESTIC  MARKET  CLEARING  ESTIMATES  * 

*  * 
******************************************************************************** 
*  *  * 


PRICF 

(DEMAND)  -  BEEF+VEALI 

EQCOM 

USPDPK 

PRICE 

(DEMAND) 

m 

PORK  1 

EOCOM 

USPDML 

PRICE 

(DEMANO) 

m 

muttdn+lambi 

EQCOM 

USPDDM 

PRICE 

(OEmAND) 

m 

DAIRY»MJLK  » 

EQCOM 

USPDPM 

PRICE 

(DEMAND) 

m 

poultry-meat! 

EQCOM 

USPQPE 

PRICE 

(Demand) 

« 

POULTRVoFGGSI 

EOCOM 

USPDWh 

PRICE 

(Demand) 

m 

whf  AT  j 

EQCOM 

USPDCN 

P°  ICE 

( demand ) 

m 

CORN! 

EOCOM 

USPDCG 

PRICE 

(DEMAND) 

m 

OTHER  COARSE  GRAJnSi 

EOCOM 

USPDR I 

PRICE 

( demand ) 

® 

RICE* 

EQCOM 

USPDSB 

PRICE 

(Demand) 

m 

soybeans 1 

EOCOM 

USPDDS 

PRICE 

(Demand) 

m 

OTHER  OILSEEDS! 

EQCOM 

USPDSM 

PRICE 

(DEMAND) 

m 

soy^eali 

EQCOM 

USPDSO 

PRICE 

(DEMAND) 

m 

SOYQIL! 

EQCOM 

USPDDM 

P°  I  CE 

(DE“ANq) 

9> 

other  mealsi 

EOCOM 

USPDOO 

PRICE 

(DEMAND) 

w 

OTHER  OILS! 

EQCOM 

uspddb 

PRICE 

(DEMAND) 

9 

DAIRY-euTTERI 

EQCOM 

USPDDC 

PRICE 

(DEMAND) 

m 

DAIRY. CHEESE 1 

EOCOM 

USPDDO 

PRICE 

(DEMAND) 

m 

DAIRY-OTHER  PRODUCTS! 

EQCOM 

USPTPF 

* 

********************************•**********************************'****•*•***** 

* 

TRAOE  PRICE  LINKAGE  EQUATIONS  * 


* 


TRADF 

PRICE  LINKAGF  -  BEEF+VE Al I 

EOCOM 

USPTPK 

TRADE 

PRICE 

linkage 

m 

PORK  J 

EOCOM 

USPTml 

TRADE 

PRICE 

LINKAGE 

m 

muttom+lamb 

1 

EQCOM 

USPTPh 

TRADE 

PRICE 

linkage 

w 

poultry-meat 

! 

EQCOM 

USRTPE 

TRADE 

PRICE 

linkage 

m 

poultry-eggs 

1 

EQCOM 

USPTWH 

TRADE 

PRICE 

LINKAGE 

m 

WHEAT  1 

EQCOM 

USRTCN 

TRAOE 

PRICE 

linkage 

m> 

CORN  | 

EOCOM 

USPTCG 

TRADE 

PRICE 

LINKAGE 

m 

OTHER  COARSE 

GRAINS  1 

EQCOM 

USRTRI 

trade 

PRICE 

linkage 

m 

RICE  1 

EQCOM 

USRTSB 

trade 

PRICE 

linkage 

m 

SOYBEANS  1 

EQCOM 

USRTOS 

trade 

PRICE 

linkage 

m 

OTHER  OILSEEDS  1 

EQCOM 

usrtsm 

TRADE 

PRICE 

linkage 

m 

SOYMEAL  1 

EQCOM 

USPTSO 

trade 

PR  ICE 

linkage 

m 

SnYOIL  l 

EOCOM 

USRTDm 

TRADE 

PRICE 

linkage 

m 

OTHER  meals 

I 

EOCOM 

U5RTO0 

TRADE 

PRICE 

linkage 

m 

OTHER  OILS  1 

EQCOM 

USPTOB 

TRADE 

PRICE 

linkage 

m 

DAIRY-BUTTER 

1 

EQCOM 

USPTDC 

TRADE 

PRICE 

LINKAGF 

m 

DAIRY-CHEFSF 

1 

EOCOM  USPTOO  TRADE 
PILEMOD  USGOLl 

PRICE 

LINKAGE 

m 

DAIRY-OTHER 

PRODUCTS  1 
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I-B.l.c.  USGOLSMC  -  Enter  Symbol  Comments  into  the  Standard  Model 

Comments  for  documentation  purposes  are  entered  for  each  variable  and 
constant  symbol  in  the  standard  model  by  this  program. 

The  "comment"  or  symbol  declaration  list  attached  to  a  model  by  this 
program  serves  as  a  dictionary  for  all  symbols  used  in  the  model. 


OUTOPT  RMARG  132  FPTFIFLD  14  TABWIDTH  7  ! 
SPRINT 


USGOLSMC  -  FNTE«  SYMBOL  COMMENTS  FOR  A  STANDARD  COUNTRY  MODEL 

* 


SEND 

USEMOO  USGOLI 
MOOED  I T  I 

SYMCOm  USMOBF  MARGIN  (DOMESTIC)  *  BEEF+VE AL  (USA/MT)! 
SYMCOM  USMOPK  MARGIN  (DOMESTIC)  *  PQ«K  (USA/MT)! 


Enter  symbol  comments 


5 y  m  c  Pm 
SYMCOm 
SYMCOM 
SYMCOm 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SymC0m 
Symcom 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 
SYMCOM 


USIMDO 

USTPgF 

USTFPK 

USTEMl 

USTFPM 

USTFPF 

USTFWM 

USTFCN 

USTFCG 

USTFRI 

USTFSB 

USTEOS 

USTFSM 

USTFSO 

ustfom 

USTFOD 

USTFDR 

USTFDC 

USTPDO 

USTODR 

USTODBM 


tariff 
TAY(-f) 
T  A  X  (  ♦  ) 
TAX(4.) 
TAX(*) 
TAX(4) 
tax ( ♦ ) 

TAX(*) 

TAX(4) 

TAX(A) 

tax<+) 

TAX(*) 

tax(4-) 
tax ( * ) 
tax<*) 

TAX(*) 

TAX(*> 

TAX<+) 

TaX(*> 

TARIF 

tarif 


(♦>/SUBS 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/subsidy 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/S"8SIOY 

/SUBS  I OY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

/SUBSIDY 

F.OIJOTA 

F-OUOTA 


IOY(-)  (IMPORT 


(•)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(•>  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
<-)  (EXPERT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(.)  (EXPORT)  * 
(•)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 
(-)  (EXPORT)  * 

*  dairy-rutter 
parameter  *  da 


)  *  DAIRY. OTHER  PRODUCTS  (USA/MT) 
BFEFfVEAL  (US*/MT)» 

PORK  (U$A/MT)I 
MUTTON+LAMB  (USA/MT)! 
POULTRY-MFAT  (USA/mT) I 
POULTRY-EGGS  (USA/mT)  I 
WHEAT  (USA/mt ) | 

CORN  (USA/MT)! 

OTHER  COARSF  GRAINS  (USA/mt)! 
RICE  (USA/MT)! 

SOY8EANS  (USA/MT)! 

OTHER  OILSEFDS  (USA/MT)! 

SOYMEAL  (USA/MT)! 

SOYOIL  (USA/MT)! 

OTHFR  MEALS  (USA/MT)! 

OTHER  OILS  (USA/MT)! 

DAIRY-BUTTER  (USA/MT)| 
DA1RY-CHEFSE  (USA/mT)! 
DAIRY-OTHER  PRODUCTS  (USA/MT)! 

I 

IRY-BUTTERI 


FILEMQD  OSGOL! 
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I-B.l.d.  USGOLCEM  -  Create  Elasticity  Matrices  for  the  Documentation  of 
the  Standard  Model  and  Enter  Coefficients 

This  program  of  TROLL  MATRIX  and  LEDIT  commands  can  be  run  to  create 
elasticity  matrices  which  help  to  document  the  standard  country  model. 

The  standard  model  can  be  understood  by  reading  the  documented  TROLL 
equations  in  a  listing  of  the  model.  However,  since  equations  are 
standardized,  the  equation  structure  in  terms  of  elasticities  and 
coefficients  can  be  summarized  in  matrix  form.  There  is  one  matrix  for 
the  food  demand  system,  one  for  feed  demand,  etc.  Programs  which  enter 
the  elasticities  also  update  these  matrices.  Whenever  these  matrices  are 
printed  out,  they  will  give  all  of  the  current  values  of  elasticities  and 
constants  embedded  in  the  model.  The  matrix  table  for  elasticities  is 
also  useful  because  some  of  the  properties  of  the  model  (e.g.  the 
existence  of  elasticity  symmetry)  are  embedded  in  the  elasticities 
themselves  rather  than  in  the  equation  forms. 

If  constant  values  are  changed  by  means  other  than  these  programs, 
care  should  be  taken  that  the  matrices  displaying  the  constants  are  also 
updated.  Otherwise,  it  is  easy  to  lose  track  of  the  coefficients 
actually  used  in  the  model  equations. 


OUTOPT  RMARG  132  FPTE I  ELD  14  T  AS*  I DTH  7  I 
t  PR  I  NT 

«**««************************»*********•***»***»***(:*****«******•******* 

* 

I'SGOLCEM  -  CREATE  MATRICES  TO  DISPLAY  CONSTANTS  AND  PARAMETERS  FOR  THE 
STANDARD  COUNTRY  MODEL-  USGOL. 

CREATE  ZERO  VALUED  CONSTANTS  FOR  THE  STANDARD  COUNTRY  MODEL.  . 

THE  MATRICES  CREATED  AR E I 

USMAELAS  -  MARGIN  ELASTICITIES 

USARELAS  -  CROP  AREA  elasticities 

USVDELAS  -  CROP  YIELD  ELASTICITIES 

USOLFLAS  -  OILSEED  PARAMETERS  AND  ELASTICITIES 

USFCELAS  -  FEED  COST  PARAMETERS 

USIPFLAS  •  LIVESTOCK  AND  LIVESTOCK  PRODUCT  ELASTICITIES 

USDPELAS  -  DAIRY  PRODUCT  ELASTICITIES 

USRPELAS  -  FEED  DEyAND  PARAMFTERS 

USOFELAS  •  FEED  Oe“ANO  ELASTICITIES 

USOIELAS  -  INDUSTRIAL  DEMAND  ELASTICITIES 

USODFLAS  -  FOOn  AND  NQN-FEFD  ELASTICITIES 

USSKELAS  -  STOCK  ELASTICITIES 

USPEELAS  -  PRICE  ESTIMATF  DAMPING  PARAMETERS 

USPD6LAS  -  DEMAND  PRICE  ELASTICITIES 

* 


SEND 


Create  a  matrix  named  USMAELAS 


DELETE  DATA  USMAELAS  I 
DO  USMAELAS  •  CRMAT(  19  *  6  »NA)I 
DELETE  GENERAL  LABEL jjSMACOLEl 
LEOJT  USMACOLE  » 

ADD  TO»*  INTERCEPTS  FQR  DOMESTIC  MARGIN  EOUATIONS  <1), 

DOMESTIC  MARGIN  ELASTICITIES  WRT  CURRENT  NON-GOL  PRICES  (POi 
domestic  margin  elasticities  WRT  LAGGED  NON-GOL  PRICES  ( PL ) t 
INTERCEPTS  FOR  trade  MARGIN  EOUATIONS  (I)* 

TRAOE  MARGIN  ELASTICITIES  WRT  CURRENT  NON-GOL  PRICES  (PC)# 

TRAOE  MARGIN  ELASTICITIES  WRT  LAGGED  NON-GOL  PRICES  (PL)» 

FILE  I  1 

LEOITEusmarowe  ^A8eL-USMAR0wE,  ✓  Create  labels  for  the  columns  of  the  matrix 

add  top# 

1  BEEF  +  VEAL  <8F)  —  — — 

2  PORK  (PK)  ---------------- 

3  MUTTON^LAMR  <  ML  >  --------- 

4  DAIRY-MILK  (DM) 

3  POULTRY-MEAT  (PM)  -------- 

6  POULTRY-EGGS  (PE)  ------- 

7  WHEAT  (WH)  --------------- 

8  CORN  (CN)  ---------------- 

f  OTHER  COARSF  GRAINS  (CG)  • 

10  RICE  (RI)  ------------- 

11  SOYBEANS  (SB) 

12  OTHER  OILSEEDS  (OS)  — — 

13  SOYMEAL  (SM)  --------- 

1*  SOYOIL  (SO)  —————— 

13  OTHER  MEALS  (Om>  ... — - 

16  OTHER  OILS  (00)  --------- 

17  OAIRY-RUTTER  (OB)  ------- 

1R  DAIRY-CHEESE  (DC>  ------- 

19  DAIRY-OTHER  PRODUCTS  (00) 

FILE  I 

DEDIT  USMAELASI 


^ — Create  labels  for  the  rows  of  the  matrix 


Enter  a  comment  to  mark  the  matrix  data  file 


COMMENT  USMAFLAS  •  MATRIX  OF  MARGIN  SHARE  ELASTICITIES  •  UNITED  STATES  I 

delete  general  label^uSmat I tl i  Create  a  title  and  footnote  for  the  matrix 

LEDIT  USMATITL  I 

ADO  TOP#  OOMESTIC  AND  TRADE  MARGIN  ELASTICITIES  •  UNITED  STATES  /l#  £J 
1/  MARGIN  SHARE  OF  demand  PRICE  WRT  to  (NON-GOL/OEMAND)  PRICEl 
FILE  I 

DO  0PRTMAT(USMAELAS#USMAR0WE»L»USMAC0LE'L»0#O#-2B  #USmATI TL ' L # 1 ) I 
DELETE  DATA  USARELAS  I  ft_,  „T  ' 

DO  USARELAS  ■  Crmat(  t  *lo#  na>»  Print  out  the  matrix  USMAELAS 
OELETE  GFNERAL  LABFL.USARCOLP  I 


DEDIT  USPDELASI 

COMMENT  MSPDELAS  -  MATRIX  OF  INTERCEPT  TERMS  FOR  DEMAND  PRICE 
EOUATIONS  .  UNITED  STATESl 
FILE  I 

OELETE  GENFRAL  LABEL.USPOTITL* 

LEDIT  USPDTITt  » 

ADO  TOP#  INTERCEPTS  FOR  DEMAND  PRICE  EOUATIONS  •  UNITED  STATES* 

FILE* 

DO  0PRTMAT(USP0ELAS»US00R0W6»L#USP0C0LE'L#0»0#-2S#USP0TITL,L*1 ) * 
DELETE  CONST  GOL«  -  .  .  x 

CEOIT  gol*  4-— - Create  &  constant  file 

COMMFNT  ELASTICITIES*  PARAMETERS,  INTERCEPTS#  ANO  OTHER  CONSTANTS  FOR 


GOL  MODEL* 
AOO 


^Add  a  comment  to  the  file 


USAPCGCG 

0* 

IJSARCGCN 

0# 

USARCGI 

0* 

USARCGOS 

0# 

USARCGRI 

0# 

USARCGSB 

0# 

USARCGwh 

0# 

usarcncg 

0# 

USARCNCN 

0# 

USARCNI 

l 

0# 

USARCNOS 

0# 

USARCNRI 

0# 

l 

USY0S9AR 

0# 

USYDS8I 

0# 

USYOSBSB 

0# 

USYOSBTR 

0* 

USVOWHAR 

0* 

USVOWHI 

0# 

USYOWHTR 

0# 

USVQWHWH 

0» 

4 

PRINT  ALL* 

<— 

-  Print  the  cons 

<r* 


Add  constants  to  the  file 


FILE  I 


File  the  constants  permanently 
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1/  MARGIN  SHARP  OF  0PMANO  PRfCf  HUT  TO  ( NQN-GOL/nFMANO  I  PRICE 


I-B.l.e.  CUSTOMIZ  -  Customize  a  Standard  Model  to  Fit  a 
Particular  Agricultural  Economy 

This  program  is  an  example  of  a  tool  which  can  be  used  to  modify  a 
standard  country  model.  The  TROLL  commands  in  the  sample  listing  are 
those  which  were  used  to  customize  the  standard  model  to  fit  some 
particular  aspects  of  the  U.S.  agricultural  economy.  Changes  in  the 
standard  model  are  made  via  TROLL  MODEDIT  commands. 


OUTQPT  RMABG  132  FPTFIFLD  14  TAB«IDTH  7  I 
RPR  I  NT 


* 

CUSTOMIZ  -  CUSTOM! ZP  A  STANDARD  MODEL  TO  PARTICULAR  COUNTRY  CONDITIONS, 

* 


Select  model  to  "be  used 


Change  equations  in  the  model 

i — 

V 


REND 

liSEMOD  USG0l!<£ 

MOOED  I T | 

CHANGED  SUSTMSO'POLN* (USPTS0'XNS*USTMSn«P0LN/100)»  G  USPDSOl 
CHANGED  *USTMDC'P01N1(U$PTDC'XNS*USTMDC'P0LN/100>$  G  USPDDCl 
CHANGED  <USTMOP'POLNi(IF  -USDTDB’N  LT  USTOOB'PPOL  TwFN  USTMDB • POLN 
ELSE  UST00BM»ppOL*USTMDB«P0LN) %  G  USPDDBl 
added  15?  T°  1551  ^  Delete  equations  from  the  model 

USSKDB  l  USS*DR'N  ■  USS<DPPC*(USPDDB«N/USPNG»  X  )**USSKDBDB'C*(USPRDM*POLN/ 
USpSOM«DEF)P*USSXDBPR'C*(USODDB»N+USOSDB'N), 

USSKOC  »  U$S*DC'N  •  USSKDCI 'C*(USPDDC'N/USPNG'X)**USSKDCDC'C*(USPR0M«P0LN/ 
USPSOm'DEF )**USSKDCPR  *C*(US00DC 'N4US0SDC 'N) , 

USSKDO  t  USS^DOiN  •  USSKDOI •C*(USPDDO'N/USPNG'X)**USSKDODO'C*<USPROM,POLN/ 
USPSOm*DFF )**USS«DOPR 'C*(USOODO'N+USOSOO,N) I 
SYMCOM  USPRDM  PARITY  RATIO  *  DAIRY-MIL*  (*)l 
USTODR  TARIFF-QUOTA  *  DA  I R  Y-BIJTTER  » 

USTQDRM  TARTFF-OUOTA  MULTIPLIER  *  DAIRY-BUTTER  I 
USSKDRPR  STOCK  ELASTICITY  *  DAIRY-BUTTER  WRT  MILK  PARITY 
STOCK  ELASTICITY  *  DAIRy-CHEPSE  WRT  mil*  PARITY 
STOCK  ELASTICITY  •  DAIRY-OTHER  PRODUCTS  HR  T  MILK 


SYMCOm 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

F I L  EMOD 


USSKCCPP 
USSKDOPR 
USGOL I 


RAT 1 0  I 
RATIO! 
PARITY 


RATIO! 


4\ 


Add  new  equations  to  the  model  after  equation  15* 


Add  symbol  comments  for  the  new  equations 


File  the  changed  model  permanently 
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I-B.2.  Programs  for  Entering  Data  into  a  Country  TROLL  File 

A  country  model  requires  a  data  file  for  each  endogenous  and 
exogenous  variable.  These  programs  can  be  used  to  enter  data  into  the 
country  TROLL  file  in  a  systematic  way.  They  contain  standard  TROLL 
DEBIT  commands  which  enter  data  and  comments  into  data  files. 

The  data  entry  programs  are  grouped  by  type  of  data  for  convenience. 
Endogenous  data  is  needed  at  minimum  for  two  years  and  more  if  the  model 
is  to  be  validated.  Exogenous  and  policy  data  are  needed  for  the  length 
of  projection  desired.  Data  can  also  be  entered  interactively  but  the 
cost  will  be  much  higher  than  if  these  programs  are  used  in  the  batch 
mode.  Note  that  each  program  begins  with  a  general  TROLL  command  to 
delete  all  previous  data  for  the  group  prior  to  the  entry  of  new  data. 


12 


I-B.2.a.  USGOLEND  -  Enter  Endogenous  Data 

A  standard  country  model  requires  two  types  of  balance  data..  First, 
quantity  supply  and  utilization  data  is  needed;  second,  supply-demand 
price  balances  are  needed.  Spread-sheet  programs  on  a  microcomputer  can 
help  assemble  balanced  data  sets  from  a  minimum  amount  of  input  data. 
Then  programs  such  as  USGOLEND  can  be  used  to  insert  the  minimum  amount 
of  this  "balanced"  quantity  and  price  data  into  a  country  TROLL  file. 


OUTOPT  RMARG  132  FPTFIELO  14  TABMIOTH  7  I 
SPRINT 

« 

USGOLEND  -  ENTER  DATA  FOR  ENDOGENOUS  VARIABLES 

« 


SEND 

DELETE  DATA  U$MT**I 
DEDIT  USMTRF  »ltl975« 
COMMENT  MARGIN  (TRADE) 


Delete  all  6  letter  data  files  beginning  with  USMT 


•  BEEFfVEAL  (USA/MT) 


2285.000 


1894.000 


1942.000 


2236.000 


(USA/MT) 

1382.000 


1559.000 


DATA 
FILEI 

DEDIT  USMTPK  ♦1»1975( 

COMMENT  MARGIN  (TRADE)  *  PORK 
DATA  1223,000  1289,000 

FILEI 

DEDIT  U5MTML  »ltl975l 

COMMENT  MARGIN  (TRADE)  *  MUTTON+LAMB  (USA/MT) 

DATA  2338.000  2718.000  2455.000  3061,000 

FILEI 

OEDIT  USMTPM  » 1 » 1973  I 

COMMENT  MARGIN  (TRADE)  *  POULTRY-MEAT  (USA/MT) 

DATA  413,000  466,000  456.000  500,000 

FILE. 


2456.000 


1594.000 


3315,000 


566,000 


2745.000  I 


I 

1535.000  I 


I 

3159,000  f 


554,000  • 


Create  data  files,  add  comments, 
add  data,  and  file  permanently 


i 


DEDIT  USPDDC  »l»1973l 

COMMENT  PRICE  (DEMAND)  *  DAIRY4CHEESE  (USA/MT) 

DATA  3362,000  3788,000  3792,000  4056,000 

FILEI 

DEDIT  USPDDO  tltl975l 


COMMENT 

DATA 

FILEI 

OPRTDATA 

OPRTDATA 

OPRTDATA 

OPRTDATA 

OPRTDATA 

OPRTDATA 

OPRTOATA 

OPRTDATA 

OPRTDATA 

OPRTDATA 

OPRTDATA 


PRICE  (DEMAND)  *  DAIRY-OTHER  PRODUCTS  (USA/MT) 
2908,000  2796.000  2984,000  3151.000 


4586,000 


3469,000 


5058,000  I 


I 

3469,000  I 


ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

ALPHA 

alpha 

ALPHA 


USMT**I 
USMD**I 
USAR**I 
USYD**I 
US0C**l 
USLA**I 
USLN**I 
USLS** l 
US0S**I 
USOF** I 
USPD**I 


Print  data  files  with  names  containing 
first  4  letters  shown 
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I-B.2.b.  USGOLEXD  -  Enter  Exogenous  Data 


Exogenous  data  is  needed  to  drive  a  GOL  country  model.  Data  is 
needed  for  the  desired  projection  horizon.  Note  that  trade  prices, 
deflators,  and  income  data  are  all  entered  in  nominal  terms  and  are 
converted  to  real  terms  by  the  structure  of  the  model. 


price 


OUTOPT  RMARG  132  FPTFIELD  1*  TABWIDTH  7  1 
SPRINT 


USGOLEXD  •  ENTER  DATA  FOR  EXOGENOUS  VARIABLES 

* 

♦♦a******************************************* 


SEND 

DELETE  DATA  TIME* 
DELETE  DATA  USICP* 


DELETE  DATA  using* 
DELETE  DATA  USPfNI 
DELETE  DATA  USPNG* 


DELETE  DATA  USPQP* 
DELETE  DATA  uswini 
DELETE  DATA  U$PT*** 


DEOIT  TIME  tltl975* 

COMMENT  TIME  * 

DATA  75,000  76,000  77,000  78.000  79.000  80,000 


81,000  82,000  83,000 

87.000  88.000  89.000 

FILE* 

DiDIT  USICP  *lt 1975 » 

COMMENT  INDEX  OF  COST  OF  PRODUCTION 
DATA  100,000  103.757 

155,098  166,905  179.628 

232,021  246,902  259,571 


86,000 

90,000 


1976*100) 

111,986 

192.308 

275,664 


85.000  86.000 

« 


128,801  142,934 
205,546  218,783 
I 


I 


FILE* 

I 


DEOIT  USPTOO  t It  1975* 

COMMENT  PRICE  (TRAOE)  •  OTHER  0IL5  (USA/MT) 

DATA  480,000  480,000  475.000  603,000  456,000 

426  437  468  515  559  605  654  705  762  823  I 

FILE* 

OEDIT  USPTDB  tl»1975* 

COMMENT  PRICE  (TRADE)  *  DAIRY-BUTTER  (USI/MT) 

DATA  1938,000  2186,000  2494,000  2373,000  2460,000 

2641  2669  3176  3627  4058  4401  4736  5119  5550  6016  I 
FILE* 

DEOIT  USPTDC  tltl975* 

COMMENT  PRICE  (TRADE)  *  DAIRY-CHEESE  (USA/MT) 

DATA  2062.000  2203,000  2281.000  2435.000  2604.000 

3048  3081  3667  4187  4684  5080  5467  5909  6406  6945  * 

FILE* 

DED1T  USPTOO  tl»1975» 

COMMENT  PRICE  (TRADE)  •  DAIRY-OTHER  PRODUCTS  (USA/MT) 

DATA  1243,000  1105,000  1464,000  708,000  386.000 

473  478  569  650  727  788  849  918  995  1079  * 

FILE* 

OPRTOATA  TIME  * 

OPRTOATA  USICP  * 

OPRTOATA  USING  » 

OPRTOATA  USPIN  * 

OPRTOATA  USPNG  * 

OPRTOATA  USPOP  * 

OPRTOATA  ALPHA  USPT*** 

OPRTOATA  USWIN  * 


« 

508,000 


( 

2488,000 


» 

2872.000 


I 

446,000 
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I-B.2.C.  USGOLEQP  -  Enter  Export  Quota  Policy  Data 

The  standard  model  uses  export  and  import  quotas  as  upper  limits  on 
exports  and  imports,  respectively.  If  quotas  appear  in  model  equation,  a 
"no  quota"  situation  must  be  emulated  by  a  quota  much  larger  than  any 
possible  trade  (or  it  may  be  set  at  the  maximum  port  capacity  for 
trade).  Therefore,  export  quota  data  may  be  required  even  if  export 
quotas,  per  se ,  are  not  effective. 


OUTOPT  RHARG  132  PPTFIELD  14  TABWIDTH  7  I 
SPRINT 


USGOLEQP  •  ENTER  EXPORT  QUOTA  POLICY  DATA 


SEND 

DELETE  DATA  U$E0*«l 
OEDIT  USEOBF  ?ltl973l 

COMMENT  EXPORT  QUOTA  «  BEEF+VEAL  (1000  MT)  I 

DATA  20000*  20000*  20000*  20000*  20000.  20000* 

20000.  20000*  20000.  20000*  20000,  20000. 

20000*  20000*  20000,  20000*  I 

PILEI 


DEDIT  USEQOO  *1*1973» 

COMMENT  EXPORT  QUOTA  *  OTHER  OILS  (1000  MT)  I 

DATA  2000.  2000*  2000*  2000*  2000.  2000* 

2000*  2000*  2000*  2000,  2000*  2000* 

2000*  2000*  2000*  2000.  I 

FILES 

DEOIT  USEQDB  *1*1975» 

COMMENT  EXPORT  QUOTA  •  DAIRY-BUTTER  (1000  MT)  I 

DATA  1000*  1000*  1000*  1000*  1000*  1000. 

1000*  1000*  1000*  1000*  1000*  1000* 

1000*  1000*  1000.  1000*  I 

FILE! 

DEDIT  USEQDC  fl«1975t 

COMMENT  EXPORT  QUOTA  •  DAIRY-CHEESE  (1000  MT)  I 

DATA  3000*  3000*  3000*  3000*  3000.  3000* 

3000.  3000,  3000,  3000,  3000.  3000, 

3000,  3000.  3000.  3000,  I 

FILE! 

DEDIT  USEQOO  tl, 19731 

COMMENT  EXPORT  QUOTA  •  DAIRY-OTHER  PROOUCTS  (1000  MT)  I 

DATA  1000.  1000,  1000.  1000.  1000.  1000. 


1000, 

1000. 

1000. 

1000, 

1000 

1000. 

1000, 

1000. 

1000,  1 

FILEI 

OPRTDAT a  ALPHA 

useq«*i 
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I-B.2.d.  USGOLMQP  -  Enter  Import  Quota  Policy  Data 


Analogous  to  the  case  with  export  quotas,  import  quota  numbers  may  be 
required  for  traded  commodities  whether  or  not  the  commodities  are 
imported  and/or  have  actual  quotas.  Import  quotas,  if  present  in 
equations,  are  prevented  from  affecting  the  standard  model  simply  by 
putting  in  a  large  number;  e.g.,  a  number  larger  than  anticipated 
consumption . 


OUTOPT  RMARG  132  FPTFIELD  14  TABWJDTH  7  I 
8PRINT 

****************************************** 

* 

USGOLMQP  •  ENTER  IMPORT  QUOTA  POLICY  DATA 

* 


LEND 

DELETE  DATA  USMQ**I 
OEDIT  USMQBF  »1.1975» 

COMMENT  IMPORT  QUOTA  *  BEEF+VEAL  (1000  MT J 

DATA  784,  909,  909,  981,  1025,  909. 

909,  909,  909,  909,  909,  909, 

909,  909*  909,  909,  I 

FILE* 

DEDIT  USMQPK  tl, 19751 

COMMENT  IMPORT  QUOTA  *  PORK  U000  MT) 

DATA  15000,  15000,  15000,  15000,  15000,  15000, 


15000. 

15000. 

15000, 

15000,  15000, 

15000, 

15000. 

15000, 

15000, 

15000,  1 

FILEI 

• 

OEDIT  USMQDB  ?l»1975l 

COMMENT  IMPORT  QUOTA  *  DAIRY-BUTTER  (1000  MT) 
DATA  1000,  1000,  1000,  1000, 


1000,  1000,  1000,  1000,  1000, 

1000,  1000.  1000,  1000.  I 

FILE! 

DEDIT  USMQDC  ♦l»1975l 

COMMENT  IMPORT  QUOTA  •  OAlRY-CHEESE  (1000  MT ) 

DATA  66,  78,  78.  90, 


91.  84,  91.  91.  91, 

91.  91.  91,  91,  • 

FILE! 

DEDIT  USM8D0  »l»1975l 

COMMENT  IMPORT  QUOTA  *  DAIRY-OTHER  PRODUCTS  (1000 

DATA  3,  3,  3,  3, 


1, 

3. 


3. 

3. 


3 ,  3,  3 , 

3.  3.  • 


FILE! 

OPRTDATA  ALPHA  USMQ**» 


1000, 


91, 


MT) 

3. 


1000, 

1000, 


91, 

91. 


3. 

3. 


I 


I 


I 


I 


I 
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I-B.2.e.  USGOLTEP  -  Enter  Export  Tax/Subsidy  Policy  Data 

The  standard  model  assumes  an  export  tax  variable  for  traded 
commodities.  The  variable  assumes  a  specific  (e.g.  ^/metric  ton)  tax 
rate.  No  export  tax  means  a  zero  rate  while  an  export  subsidy  means  a 
negative  rate.  If  an  export  tax  is  "  ad  valorem,"  it  can  be  entered  as 
an  ad-valorem  rate  into  the  data  file  if  the  model  equations  are  modified 
appropriately.  Note  that  data  comments  can  identify  the  data  and  its 
unit  of  measurement. 


OUTOPT  RNARG  132  FPTFIELD  14  TABMIDTH  7  I 
SPRINT 


USGOLTEP  -  ENTER  EXPORT  TAX  POLICY  DATA 

« 


SEND 

DELETE  DATA  USTE**I 
DEDIT  USTEBF  tltl975l 
COMMENT  TAX(+)/SUBSIDY(«) 
DATA  0,  0, 

0.  0. 

0.  0. 

FILEI 

DEDIT  USTEPK  iltl975» 
COMMENT  TAXU)/SUBSIDY(-) 
DATA  0.  0, 

0.  0, 

0.  0, 

FILEI 

DEDIT  USTEML  tltl975l 
COMMENT  TAXU)/SU8SIDY(-) 
DATA  0.  0, 

0.  0, 

0.  0, 

FILEI 


DEDIT  U5TEDL  »1» 19731 
COMMENT  TAXU)/SUBSIOY<») 
DATA  0.  0. 

0.  0, 

0.  0, 

FILEI 

DEDIT  USTEDO  tltl975l 
COMMENT  TAX(+)/SuBSIDY(-) 
DATA  •1220.  -1280, 

0,  0, 

0,  0. 

FILE! 

QPRTDAT A  ALPHA  USTE**I 


(EXPORT) 

4  BEEFtVEAL  (USA/MT) 

0. 

0,  0. 

0. 

0. 

0, 

0. 

0.  1 

(EXPORT) 

*  PORK 

(USA/MT) 

0. 

0.  0, 

0. 

0, 

0, 

0. 

0.  1 

(EXPORT) 

0, 

0. 

0. 


*  MUTTONtlAMB  (USS/MT) 

0.  0. 

0,  0,  0, 
0.  I 


0, 


(EXPORT) 

0. 

0. 

0. 


*  DAIRY-CHEESE  (USA/MT) 

0,  0, 

0,.  0,  0, 
0.  I 


0, 


(EXPORT) 

•1072, 

0. 

0, 


*  OAIRY-OTHER  PRODUCTS  (USA/MT) 
•1980,  *2584,  -2584, 

0 ,  0 ,  0 , 

0.  I 


I 


I 


I 


I 
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I”B„20f.  USGOLTMP  -  Enter  Import  Tariff /Subsidy  Policy  Data 


The  comments  about  export  tax/subsidy  data  apply  equally  to  import 
tax/subsidy  data.  Import  taxes  are  referred  to  as  tariffs  but  are 
generally  meant  to  be  any  taxes  or  charges  that  apply  to  imported,  as 
opposed  to  domestically  produced,  commodities.  Subsidies  are  entered  as 
negative  taxes. 


OUTQPT  RMARG  132  FPTPIELD  14  TABMIDTH  7  I 
&PR l NT 


USGOLTMP  -  ENTER  IMPORT  TAX  (TARIFF)  POLICY  DATA 


** 


6END 

DELETE  DATA  U$TM**I 
DEDJT  USTMBP  .1.19751 

COMMENT  TARIFF<4)/SUBSSDV(«)  (IMPORT)  *  BEEF+VE AL  (USA/MT) 


DATA 

89, 

69 1 

69  e 

69, 

69 

46. 

46  0 

46, 

46  t) 

46. 

46. 

46  c 

46 « 

46* 

» 

FILEI 

DEDIT 

USTMPK  ,1 

f 19751 

COMMENT  TARIFF(4)/SUBSIDY( 

•  ) 

(IMPORT)  * 

PORK 

(USA/MT) 

DATA 

61, 

61, 

61, 

61, 

61 

o 

61, 

61, 

61. 

61  e 

61. 

61. 

61. 

61, 

61* 

1 

FILEI 

57. 


DEDIT  USTMDB  tl, 19751 

COMMENT  TARIFF(*)/SUBSIDY(-)  (IMPORT)  * 
DATA  138.  138.  138. 

138.  138.  138.  138. 

138.  138.  138.  138. 

FILEI 

OEOIT  USTMDC  tl.  19751 

COMMENT  TARIFF(+)/SUBSIDY(«)  (IMPORT)  * 
DATA  10.  10.  10. 

10.  10,  10,  10, 

10.  10,  10.  10, 

FILE* 

DEDIT  USTMOO  .1.19731 

COMMENT  TARIFF(4)/SUB$!DY(-)  (IMPORT)  • 
DATA  44.  44.  44. 

44,  44,  44,  44, 

44,  44,  44,  44, 

FILE! 

OPRTDATA  ALPHA  USTM**I 


DAIRY-BUTTER  (USA/MT) 
138,  138.  138, 

138.  138, 

I 


DAIRY-CHEESE  (I) 

10.  10.  10, 
10,  10. 

I 


DAIRY-OTHER  PRODUCTS  (USA/MT) 

44,  44,  44, 

44,  44, 

I 


I 


I 


I 


I 


I 
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I-B.2.g.  USGOLTCP  -  Enter  Consumption  Tax/Subsidy  Policy  Data 


Consumption  taxes/subsidies  are  those  taxes  applying  to  consumed 
products  whether  produced  domestically  or  imported.  The  comments  about 
import  tax/subsidy  data  apply  equally  to  this  data. 


OUTOPT  RMARG  132  FPTFIELD  1*  TAMIDTH  7  I 
SPRINT 


* 

USGOLTCP  -  ENTER  CONSUMPTION  TAX  POLICY  DATA 


SEND 

DELETE  DATA  USTC**« 


DEDIT 

USTCBF 

1 1  ♦  1975 1 

COMMENT 

TAX  ( 

♦)/SUBSIDY(.) 

DATA 

0.  0. 

0. 

0. 

0. 

0. 

FILE! 

DEDIT 

USTCPK 

lit  19751 

COMMENT 

TAX  ( 

♦  )  /SUBS  I DY ( - ) 

DATA 

0.  0, 

0. 

0. 

0. 

0. 

FILEI 

DEDIT 

ustcml 

•  1 1 1973 1 

COMMENT 

TAX  ( 

♦  ) /SUBS  I DY ( • ) 

DATA 

0.  0, 

0. 

0. 

0. 

0. 

FILEI 

(CONSUMPTION) 

0, 

0.  0. 

0.  0. 


(CONSUMPTION) 

0. 

0.  0. 

0.  0. 


(CONSUMPTION) 

0. 

0.  0, 

0.  0. 


* 


I 


BEEFfVEAL  (USA/MT) 

0.  0. 

0,  0. 


0. 


*  PORK  <  USA/MT ) 
0.  0. 
0. 


I 


0. 


0, 


*  MUTTON+LAMB  (USA/MT) 

0  •  0  •  0  • 

0.  0. 

I 


I 


I 


I 


I 


DEDIT  USTCDC  tlil975l 
COMMENT  TAXU)/SUBSIDY(-) 


DATA  0.  0. 

0.  0. 

0.  0, 

FILE! 

DEDIT  USTCDO  iltl973l 
COMMENT  TAXU)/SU8SIDY(-) 
DATA  0.  0. 

0.  0, 

0.  0, 

FILE  I 


OPRTDATA  ALPHA  USTC**» 


(CONSUMPTION) 

0. 

0.  0, 

0.  0. 


I 


DAIRY-CHEESE  (USA/MT) 

0  •  0 «  o « 

0,  0. 


(CONSUMPTION) 

0. 


*  DAIRY-OTHER  PRODUCTS  (USA/MT) 

0  •  0  •  0  • 


0*  0.  0,  o( 

0*  0,  I 


I 


I 
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I-B.2.h.  USGOLTPP  -  Enter  Production  Tax/Subsidy  Policy  Data 


Production  tax/subsidy  data  is  needed  for  commodities  produced 
domestically.  Comments  applicable  to  other  tax/subsidy  data  apply. 


OUTOPT  RMARG  132  FPTFIELD  1*  TABMIDTH  7  I 
SPRINT 

* 

USGOLTPP  -  ENTER  PRODUCTION  TAX  POLICY  DATA 

* 


SEND 

DELETE  DATA  USTP**I 


DEDIT  USTPBF 

tit 19751 

comment  TAX 

( ♦ ) /SUBS  I DY ( • ) 

(PRODUCTION)  * 

BEEF+VEAL  (USA/MT) 

1 

DATA 

0.  0, 

0. 

0.  0. 

0. 

0. 

0* 

0. 

0. 

0,  0. 

0. 

0. 

0. 

0. 

1 

FILE! 

DEDIT  USTPPK 

»ltl97Sl 

COMMENT  TAX 

C ♦ ) /SUBSIDY ( • ) 

(PRODUCTION)  * 

PORK  (USA/MT) 

I 

DATA 

0  •  0 1 

0. 

0.  0. 

Of 

0, 

0. 

0. 

0  ® 

0.  0 « 

0* 

0. 

e* 

0* 

1 

FILE* 

DEDIT  USTPML 

» 1 » 1973 1 

comment  TAX 

( ♦ ) /SUBS  I DY  ( • ) 

(PRODUCTION)  * 

MUTTONtLAMB  (USA/MT) 

» 

DATA 

0.  0, 

0. 

0.  0. 

0. 

0. 

0. 

0, 

0, 

o 

• 

o 

0. 

0. 

0. 

0. 

1 

FILE! 

[ 

DEDIT  USTPDB 

tit 1975 1 

I 

COMMENT  TAX 

C ♦ ) /SUBSIDY ( - ) 

(PRODUCTION)  * 

DAIRY-BUTTER  (USA/MT) 

1 

DATA 

0.  0, 

0. 

0.  0. 

0. 

0. 

0. 

0. 

0. 

o 

• 

o 

0 

0. 

0. 

0. 

oe 

1 

FILE  1 

DEDIT  USTPDC 

fit  19751 

COMMENT  TAX 

( ♦  ) /SUBS  I DY ( - ) 

(PRODUCTION)  * 

DAIRY-CHEESE  (USA/MT ) 

1 

DATA 

0,  0. 

0. 

0.  0. 

0, 

0. 

0. 

0. 

0. 

0,  0. 

0. 

0. 

0. 

0. 

« 

FILE  1 

DEDIT  USTPDO 

»1» 19751 

comment  TAX 

( t ) /SUBS  I DY  ( • ) 

(PRODUCTION)  * 

DAIRY-OTHER  PRODUCTS 

(USA/MT) 

1 

DATA 

0.  0. 

0. 

0 «  o. 

0. 

0. 

0. 

0. 

0, 

0.  0. 

0. 

0. 

0. 

0. 

1 

FILE  1 

OPRTDATA  ALPHA  U$TP**| 
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I-B.3.  Programs  for  Model  Initialization  and  Updating 

The  groups  of  TROLL  commands  presented  above  help  to  enter  a  standard 
model,  documentation,  and  supporting  data  into  a  TROLL  file.  In  order  to 
become  operational,  the  model  needs  to  have  coefficients  for  the 
equations.  The  model  must  also  be  initialized,  i.e.  have  intercepts 
calculated  from  these  coefficients  and  data  for  a  base  year.  The 
programs  of  TROLL  commands  that  follow  perform  this  function.  They  enter 
coefficients  and  parameters  into  the  model  constant  file,  also  enter  them 
into  the  elasticity  matrix  used  to  document  the  elasticities, 
coefficients,  and  parameters;  calculate  the  appropriate  intercepts 
required  for  model  initialization;  and  enter  the  calculated  intercepts 
into  the  elasticity  display  matrices. 

Each  equation  group  in  the  model  which  requires  parameters  or 
coefficients  has  a  separate  program.  If  coefficients  are  to  be  changed 
in  the  standard  model,  they  should  be  changed  in  these  programs  and  the 
programs  should  be  re-run  so  that  all  the  appropriate  information  about 
the  status  of  the  model  is  updated.  The  effective  use  of  these  types  of 
"  maintenance  "  programs  can  transform  the  updating  of  a  standard  model 
from  a  f rustratingly  complex  task  to  a  simple  orderly  one. 


I-B.3. a.  USGOLMA  -  Coefficients  for  Margin  Equations 

Each  of  the  programs  to  enter  equation  coefficients/  elasticities 
carries  out  three  operations.  First,  existing  values  of  the 
coefficients  in  the  constant  files  are  updated  by  the  value  following 
the  constant  name  (one  constant  per  line)  via  TROLL  CEDIT  commands. 
Second,  the  intercepts  of  equations  using  these  coefficients  are 
re-calculated  using  TROLL  DO,  and  DOCORE  statements.  Third,  the 
matrices  containing  the  elasticities  for  display  purposes  are  updated 
using  TROLL  MATRIX  manipulation  capabilities.  Whenever  any  coefficients 
are  changed,  it  should  be  done  via  these  programs  in  order  that  all 
bookkeeping  and  documentation  operations  are  performed.  If  equations 
themselves  are  changed,  the  equations  calculating  the  intercepts  in 
these  programs  must  be  changed  accordingly. 
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Note  that  if  a  different  base  year  is  desired  for  model 
initialization  (these  examples  use  1979  -  1981),  the  year  must  be 
changed  in  each  of  these  coefficient  entry  programs.  Data  must  be 
available  for  all  endogenous  variables  for  the  selected  base  year(s). 

The  following  program  enters  domestic  and  trade  margin  coefficients 
(elasticities),  updates  the  intercepts  of  the  margin  equations,  and 
inserts  the  new  elasticities  and  intercepts  into  the  display  matrices 
for  the  domestic  and  trade  margins. 


OUTOPT  RMARG  132  FPTFIELD  14  TABWIOTH  7  » 

LPR INI 

************************************ ************************ ************ 

USGOLMA  -  COEFFICIENTS  FOR  MARGIN  EQUATIONS 

* 

********************************************************** ************** 

LEND 

CEDIT  USGOLI 
CHANGE 

0.37  • 

0.27  * 

0.0  ♦ 


USMDBFPC 

USMDPKPC 

USMDMLPC 

USMD0MPC 


0,0 


Change  constants  in  the  constant  file  USGOL  to 
these  values 


o.o 

o.o 

0,0 

0,0 


Using  constants  in 

the  file  USGOL,  calculate  a  constant  named  'intercept' 
and  equate  it  to  a  constant  in  the  file 


usmtoopl 

USHTDBPL 
USMTDCPL 
USMTOOPL 

I 

FILEl 

BINDVAL  CONST  USGOLI 
D08ANGE  1979  TO  19811 

DOCORE  I NTERCPT  ■  USMDBP ' N/ (  ( ( USPNG/USPD8F ' N ) **U3MD8FPC » C  ) 
*(  (USPNG(«°l)/USPDHF(.l)  )  **USMDBFPL  '  C  )  4USPDBF  '  N  )  | 

DO  USMDBEl'C  ■  MEAN (INTERCPT ) I 

DOCORE  INTERCPT  ■  USMQPK ' N/ ( ( ( USPnG/USPDPK ' N ) **USM0PKPC » C ) 
( U  S  P  N  G ( » 1 )/USP0PK(»l) ) **USmDPKPL ' C ) 4USP0PK ' N )  | 

DO  USMOPKI'C  ■  M|AN( INTERCPT ) I 

DOCORE  INTERCPT  ■  USMOML » N/ ( ( ( USPNG/USPDML ' N ) **USMPMLPC ' C ) 
*( (USPNGI -1 ) /USPDml ( -1 ) )**USMDMLPL 'C )*USP0ml ' N )  l 


DOCORE  INTERCPT  *  USMTDC * N/ ( ( ( USPNG/USPDOC ' N ) **USmTDCPC • C ) 
*( (USPNGI-l ) /USPDOC ( •  1 ) )**USMTDCPL,C)*USPDDC'N)  l 
DO  USMTOCPC  •  mEAN(  INTERCPT)  I 

DOCORE  INTERCPT  ■  USMTDO ' N/ ( ( < USPNG/USPOOO ' N ) **USmTD0PC ' C ) 
*< (USPNGI •! ) /USPODOt -1 ) ) **USMTD0PL 1 C ) *USPDD0 ' N )  » 

DO  USMTDOPC  ■  MEAN(  INTERCPT)! 

DORANGEl  V 

DOCORE  USMAELAS«MATREP(USMAELAS.USM0BFPC*  1  *1)1 

DOCORE  USMAELAS»MATREP(USMAELAS,USMOPKl 'C*  2  *l)l 
DOCORE  USmaELAS«maTREP(USmaelaS»USmDmlI *C»  3  *1)1 

DOCORE  USmaELAS-maTREP  (uSmaELAS«USM0DMPC*  4  *1)» 

DOCORE  USmA6LAS«maTREP(uSmA§LAS.USmOPMPC»  5  *1)| 


2 


DOCORE 
DOCORE 
00  USMAELAS-USMAELAS I 


USMAELAS«MATREP(USMAELAS»USMTDCPL 'C»  18 
USMAELAS»MATREP(USMA6LAS.USMTD0PL 'C.  19 


*6)  I 
v  6 


Update 
matrix  with 
and  equation 


the  constant (elasticit; 

with  the  new  constants 


intercepts 


DOCORE  OPR  THAT (USmAELAS.USMARQWE ' L * USM ACOLE ' L *  0  *  0 » -28 


Print  the  new  display  matrix 

.USMATITL 'L.l ) I 
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I-B.3.b  USGOLPS  -  Definitions  for  Supply  Price  Equations 


Definition  equations  in  TROLL  require  no  data  for  model 
initialization.  However,  some  definitional  data  is  required  for  the 
calculation  of  intercepts  if  the  definitional  data  appears  in  other 
explanatory  equations.  This  program  of  TROLL  commands  creates  such  data 
for  the  supply  prices. 


OUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7  I 
SPRINT 


* 

USGOLPS  -  DEFINITIONS  FOR  SUPPLY  PRICE  EQUATIONS 

* 


SEND 

BINDVAL  CONST  USGOLI 
DORANGEl 


00 

USPSPF-USPDBF 

•N-USTCBF 

•US^ORF 

-USTPBF 

DO 

USP  SPK ■USPOPK 

•N-USTCPK 

•US*0PK 

-USTPPK 

DO 

USPS"L«USPD*L 

•N-USTCHL 

•USN0«L 

•USTPmL 

DO 

uspsdm»u$pddn 

•N-USTCDH 

-USNDDM 

-USTPON 

DO 

USPSP^-USPDPM 

•N-USTCPH 

•USNDPM 

-USTPPN 

DO 

USPSPMUSPOPE 

•N-USTCPE 

•USMOPE 

•USTPPE 

DO 

USP$w*»USPDWH 

•n-USTCwh 

•US*0WN 

•USTPrfH 

DO 

USPSCN«USPDCN 

•N-USTCCN 

-US*DCn 

-USTPCN 

DO 

USPSCG-USPDCG 

'N-USTCCG 

•US^DCG 

•USTPCG 

DO 

USPSR I-USPORI 

•N-USTCRI 

•USMDR I 

-USTPRI 

DO 

USPSSB-USPDSB 

•N-USTCSB 

•USWOSB 

-USTPSB 

00 

USPSOS-USPDOS 

•N-USTCOS 

-US"D0S 

•USTPOS 

DO 

USPSS*«USPDS* 

•N-USTCSM 

•USMDSH 

•USTPSM 

DO 

USPSSO-USPDSO 

'N-USTCSO 

-US^DSO 

-USTPSO 

DO 

USPSDM«U$PDQW 

•n-ustcom 

•US*OOW 

"UST  P0M 

DO 

USPSOO-USPDOO 

•N-U5TC00 

•USMD0O 

-USTPuO 

DO 

USPSOB-USPDOB 

•N-USTCDB 

•USMDDB 

-USTPDB 

DO 

U$PSDC«USPDDC 

•N-USTCDC 

-US"D0C 

•uSTPDC 

DO 

USPSDO»USPDOO 

•N-USTCOO 

•USMDD0 

•uSTPDO 

OPRTOATA  U$PS**I 


* 


Create  £.nd  file)  new  variables  from  existing  ones 


I-B.3.C.  USGOLAR  -  Coefficients  for  Crop  Area  Equations 

This  program  of  TROLL  commands  enters  elasticities  for  the  crop  area 
equations  and  land  supply  equation,  updates  their  intercepts,  and  updates 
the  corresponding  display  matrix. 
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Note  that  the  coefficient  entry  lines  (cards)  are  ordered  to 
correspond  to  a  stack  of  columns  of  the  display  matrices.  Hence,  the 
elasticities  reading  down  the  matrix  columns  starting  with  left  columns 
corresponds  to  the  order  of  the  elasticity  entry  lines  at  the  beginning 
of  the  program.  This  pattern  holds  for  all  constant  entry  programs. 


OUTOPT  RMarg  132  FPTFIELO  1*  TABWIDTH  7  I 
&PR  I  NT 

*****«»*»**********•*************•*•**•***•****•«••*•»••**•*•«•*•••»•■»» 

* 

USGOLAR  «  COEFFICIENTS  FOR  CROP  AREA  EOUATIONS 
* 

************************************************************************ 

feEND 

CEDIT  USGOl  I 

Change 

USARHHwh  0d5  « 

I  t  \ 

USARSBOS  -0,0]  « 

USAROSOS  0,11  * 

USARTTRL  0,12  « 

USARTTTR  0,00341  t 

I 

FILE* 

8INDVAL  CONST  USGOL I 
DOR  ANGE  » 

DO  USTTRIMUSPSWH  *USYDwH  »  N*USARwh  •  N 

♦USPSCN  *USYDCN'N*USARCN«N+USPSCG  *USYnCG»N*u$AROG'N 
♦USPSRI  AUSVDRI 'N*USARRI *m«USPSSB  *USYDSB « n*USARSB ' n 

♦  USPSOS  *US YDOS ®N*uS&R OS *100/1 ( US  I  CP f X ) * ( US AR WH > N  +  US ARCN ' N  +  US AB CG ' N 

♦USARRI »N+USARS8'N+USAR0S'N) ) I 
DORANGF  1979  TO  1981  I 

DOCURE  INTERCPT-USARTT/I ( (USTTRL  ( -1 ) I **US ARTTRL ' C ) 

*< (1*USaRTTTR«C)**TIME'X)  )  I 
DO  USARTTI'C  ■  MEAN ( INTERCPT ) I 

f  I  f 


00C0RE  INTERCPT«USAR0S/!1 

*(  (USPSNH  (-1  >*USY0WH'N(-1  )  /US  I  CP  *  X  (-1 )  )**USAR0S*«h  '  C  ) 


(•1)*USY0CN*N(.1)/USICP'X(-1 ) )**USARQSCN'C) 
{•1)*USYDCG'N(-1)/USICP'X(-1) >**USAR0SCG'C> 

(-1 )*USYDR I'N(-1)/USICP'X<-1) )**USAR0SB I  *  C ) 
«-1)*USYDSB'n(-1)/uSICP'X(-1) )**USAROSSB'C ) 

(*1 )*USYD0S'N(-l )/uS!CP'X(-l) )**uSAROSOS'C)*USARTT'N) I 
■  ME  AN ( INTERCPT ) I 


•< (USPSCN 
*( (USPSCG 
*( (USPSRI 
*( (USPSSR 
*<  <USPSUS 
DO  USAROSI 'C 
DORANGE  I 

DOCORE  USARELAS-MATREP  f US AR E L AS  *  US ARTT I »Ct 
DOCORE  USARELAS*MATREP(USARELAS»USARWHI 'C. 


1* 

2* 


lit 

1)1 


{ 

DOCORE  USARFLAS»MATREP(USARELA$.USARCGOS'C»  *  ♦  7  )» 
DOCORE  USARELAS«MATREP(USARELAS»USARR10S'C*  5  *  7  )» 
DOCORE  USARELAS«MATREP{USARELAS*USARSBOS*C»  6  ♦  7  >1 
OOCORE  USARELAS»maTREP(USARELAS»USAROSOS'C*  7  »  7  )l 
DOCORE  USARELAS«MATREP(USARELAS»USARTTRL'Ct  1»  9)1 
DOCORE  USARELAS«MATREP(USARELAS»USARTTTR »C«  If  10)1 
OOCORE  X*RO* SUM ( US ARELAS»Ot COMBINE ( 2 » 3 » 4» 5 * 6. 7 ) ) I 
DOCORE  X»-1,0*X| 

OOCORE  USARELAS«MATREP(USARELAStX»0»  8)1 


DO  USARELAS"USAHELASI 
OPRT  DAT  A  USTTRLI 

DOCORE  OPR  That ( USARELAS* USARROME  atUSARCOLE  »L»0,0,«26  ♦ USAR T I TL ' L . 1 ) » 
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I-B.3.d. 


USGOLYD  -  Coefficients 


for  Crop  Yield  Equations 


This  program  enters  elasticities  for  the  crop  yield  equations, 
updates  their  intercepts,  and  updates  the  crop  yield  coefficient  display 
matrix. 


OOTOPT  RHARG  132  FPTFIELD  14  TABSIDTH  7  ; 

SPRINT 

************************************************************************ 

* 

OSGOLYD  -  COEFFICIENTS  FOB  CBOP  HELD  EQUATIONS 

* 


************************************************************************ 

BEND 

CEDIT  DSGOL ; 

CHANGE 

USYDWHBH  0.007  , 

USYDCNCN  0.114  , 


f 


USYDSBTB  0.00977  , 

USYDOSTB  0.010999  , 

FILE; 

BINDVAL  CONST  USGOL; 

DOBANGE  1979  TO  1981  ; 

DOCORE  INTFRCPT=USYDHH/{  (  (USPSWH  /USPIN • X) **U5YDBHWH' C) 

*  (  (USAP  WH’ N)  **USYDWHAR«  C) *  (  ( 1 »  USYDBRTB ' C) **TIHE' X) * USSIN' X)  ; 
DO  DSYDHHI'C  =  HEA  N  (I  NT  EBC  PT)  ; 

DOCOBE  If?TERCPT=USYDCN/  (  (  (USPSCN  /USPIN • X) **USYDCNCN' C) 

*  (  (USARCN*  N)  **HSYDCN  AR ' C) * ( ( 1  +  US YDC NTR ' C) **TIHE'  X) *US¥IN' X)  ; 
DO  USYDCNI ' C  =  MEAN (INTERCPT) ; 

DOCORE  INTERCPT=US YDCG/ ( (  (USPSCG  /USPIN ' X) ** USYDCGCG' C) 

*(  (USARCG’ N) **USYDCGAR ' C) * ( ( 1 +U 5 YDCGTB ' C) **TIHE'X)  *USWIN' X)  ; 
DO  USYDCGI'C  =  HEAN (INTERCPT) ; 

DOCORE  INT ER CPT- US YDR 1/  (  (  (USPSRI  /USPIN ' X) ** US YDR IB I » C) 

*  (  (USARRI  •  N)  ♦♦USYDBIAR  •  C)  *  {  ( H-USYDBITR’  C)  **TIHE'  X)  *US¥IN'  X)  ; 
DO  USYDRII ' C  =  HEAN (INTERCPT) ; 

DOCORE  INTERCPT=USYDSB/( ( (USPSSB  /USPIN * X) ** US YDSBSB * C) 

*  (  (US  ARSB'  N)  *  *  OS  YDSB  AR  '  C)  *  (  ( 1*USYDSBIB'  C)  **TIHE'  X)  *  US BIN*  X) 

DO  USYDSBI • C  =  HEAN (INTERCPT) ; 

DOCORE  INTERCPT=USYDOS/ ( ( (OSPSOS  /US PI N ' X) ** US YDOSOS • C) 

* ( (USAROS' N) **US YDOS  AR • C) *  (  ( 1 *0SY DOSTR • C) **TIHE*  X) *  US BIN' X) 

DO  USYDOSI'C  =  HEAN (INTERCPT) ; 

DOPANGE  ; 

DOCOBE  USYDELAS=HATREP(USYDELAS 
DOCORE  USYDELAS=HATREP  (USYDELAS 
DOCORE  USYDELAS=H ATHEP (USYDELAS 

I- 

DOCORE  USYDELAS=HATREP (USYDELAS 
DOCORE  OSYDELAS=HATBEP (USYDELAS 
DOCORE  USYDELAS=HATREP (USYDELAS 
DOCORE  USYD EL AS=HATBEP (USYDELAS 
DO  USYD EL  A S= USYDELAS; 

DOCORE  OPRTHAT (USYDELAS, USYDHOB 


, US  YDBHI ' C ,  1,  1)  ; 

, USYDCNI ' C ,  2,  1)  ; 

, USYDCGI'C,  3,  1)  ; 

H 

, USYDCGTB ' C,  3  ,4)  ; 

,USYDRITR ' C ,  4  ,4)  ; 

, US  YDS  BTB ' C,  5,4); 

,  USY  DOSTR '  C  ,  6  ,4); 

E* L, UST  DC  OLE'L,0, 0,-26  ,  US  YDTITL  '  L,  1)  ; 


t 
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I“Bc3.e.  USGOLQS  -  Definitions  for  Crop  Supply  Quantity  Equations 


OOTOPT  B BARG  132  FPTFIELD  14  TABBIDTH  7  ; 

6  PR  I  NT 

************************************************************************ 

* 

USGOLQS  -  DEFINITIONS  FOB  CROP  SUPPLY  EQUATIONS 

* 

************************************************************************ 


SEND 

DORANGE; 

DO  USQSWH=USARWH  *  U  S  Y  D  H  H  ; 

DO  USQSCN=USARCN  *USYDCN  ; 

DO  USQSCG=USARCG  *USYDCG 

DO  USQSRI=USAEBI  *USYDRI  ; 

DO  USQSSB=USAPSD  *USYDSE  ; 

DO  USQSOS^USAROS  ♦USYDOS  ; 

OPBTDATA  USQSWH  USQSCN  USQSCG  USQSRI 


USQSSE  USQSOS ; 


TROLL 
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USGOLOL  -  Coefficients  for  Oilseed  Product  Equations 


This  program  enters  the  elasticities  for  the 
equations,  updates  their  intercepts,  and  updates 
As  is  the  case  with  all  of  the  coefficient  entry 
matrices  and  intercepts  are  displayed  at  the  end 
TROLL  "OPRTMAT"  commands. 


oilseed  product  crushing 
their  display  matrix, 
programs,  the  new 
of  the  program  output  by 


OUTOPT  BflAFG  132  FPTFIELD  14  TABSIDTH  7  ; 

SPRINT 

************************************************************************ 

* 

USGOLOL  -  COEFFICIENTS  FOR  OILSEED  PRODUCT  EQUATIONS 

* 

************************************************************************ 

SEND 

CEDIT  USGOL; 

CHANGE 


USQSSBSH 

0.  8, 

USQSOSOH 

0.5, 

USQSSBSO 

0.  18, 

USQSOSOO 

0.  18, 

USQCSBPH 

0.0  1  , 

USQCOSPH 

0.00  , 

USQCSBTR 

0.04982 

USQCOSTR 

0.03462 

FILE; 

BINDVAL  CONST  USGOL; 

DOPANGE; 

DO  USSBPfl  =  (USQSSBSH'  P*USPSSO  USQSSBSO' P*USPSSO) ; 

DO  USOSPH  =  (DSQSOSOfl'  P* US PS OH  ♦  USQSOSOO • P* USPSOO)  ; 

DORANGE  1979  TO  1981  ; 

DOCORE  INTERCPTsUSQCSE/ ( 1 

*  (  (USSBPH  ) **USQCSBPM’C) * ( (1  +  USQCSBTP 'C) **TIHE'X) )  ; 

DO  USQCS BI ' C  =  NEAN (INTERCPT)  ; 

DOCORE  INTERCPT=USQCOS/ ( 1 

*  (  (USOSPH  ) **USQCOSPH'C)* ( ( 1 +USQCOSTR ' C) **TIHE'X)  )  ; 

DO  USQCOSI ' C  =  HEAN  (INTERCPT)  ; 

DORANGE; 

DOCORE  U SO L EL A S=H AT REP (USOLELAS, USQSSBSH' P,  1,  1); 

DOCORE  USOLELAS=HATFEP(USOLELAS,USQSOSOM'P,  2,  1); 

DOCORE  USOLELAS=BATRE? (USOLELAS, USQSSBSO’ P,  1r  2); 

DOCORE  USOLELAS=H ATREP (USOLELAS, USQSOSOO' P,  2,  2); 

DOCORE  USOLELAS=HATREP(USOLELAS , USQCSBI'C,  1,  3); 

DOCORE  U SOLELA S= HAT REP ( USOLELAS ,USQCO SI 'C,  2,  3); 

DOCORE  USOLELAS=HATREP (USOLELAS#USQCSBPH'C, 1,4) ; 

DOCORE  USOLELAS=HATREP (USOLELAS ,USQCOSPH'C, 2, 4) ; 

DOCORE  USOLELAS=HATREP(USOLELAS, USQCSBTR ' C, 1 , 5) ; 

DOCORE  USOLELAS  =  HATREP (USOLELAS , U SQCOSTR ' C, 2  # 5)  ; 

DO  USOLEL AS-USOLELAS ; 

DO  USQSSN=USQSSBSH' P*USQCSB  ; 

DO  USQSSO=USQSSBSO' P*USQCSB  ; 

DO  USQSOH=USQSOSOH' P*USQCOS  ; 

DO  USQSOO= USQSOSOO ' P*USQCOS  ; 

OPRT  DAT  A  0SS3PH  USOSPH  DSQSSH  USQSSO  USQSOH  USQSOO; 

DOCORE  OPRTHAT (USOLELAS, USOLBOB E* L, USOLCOLE' L,0, 0,-22, OSOLTITL*  L, 1)  ; 
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I-B.3.g.  USGOLFC 


Parameters  for  Feed  Cost  Equations 


OUTPPT  R*ARG  132  FPTF 1  ELD  14  TAB*I0TW  T  I 
£PP  f NT 

#**•«»**«**********•*••*•**«*•*»***«***•••*■•**••************•«*••••**•* 

* 

usgolfc  -  parameters  for  feed  COST  eouations 

* 

•<(«*#**#*•****•*•*•*•******•****••«***•*•••■■**«******#•*•***■•*•*•••*•• 

fcEND 

CEOIT  USGOLl 
CHANGE 

USPCEFhW  0,01000  ♦ 

USFCPKteM  0,01000  « 

USFCMLWH  0,01000  » 


USFCPMQm 

USFCPFOM 


FILE* 

BINOVAL  CONST  USGOLI 
DORANGEl 

OOCORI  OSECELAS-maTRI 
OOCORE  USFCELAS»m4TRI 
POCO»E  USFCEl AS»MATBl 
DOCORE  USFCEL AS»MATRI 
OOCORE  USFCELAS-MATRl 


OOCORE  USFCELAS»MATRgP(USFCE 
OOCORE  USFCELAS»MATREP(USFCE 

oo  u$fcela$«usfc.flas» 

00  USFCRF-USFCBFOM • P4USP00M 
USFCBFCG' P*USPOCG'N+USFCPFCN 
DO  USFCPk»uSFCpkom'P*hspdom 
USFCPKCG' P*USPDCG'N+USFCPKCN 
DO  USFCmL«USFCmL0m  '  P*tJSPOOM 
USFCmLCG'P*OSPDCG*N+USPCMLCn 
00  USFCDMbUSFCDNOM ' P*DSPD0M 
USFCDMCG' P*USPDCG 'N*USFCOMCN 
DO  USFCPM»USFCP“OM  •  P4IJSP00M 
USFCPmCG  '  P*l'SPOCG  ‘N  +  USFCPMCN 
DO  USFCPE«USFCPEOM ' P*HSPD0M 
USFCPECG' P*USPOCG'N+USFCPECN 


»USFCBFWH 

P* 

1* 

1)1 

»  USFCP* WH 

P« 

2  * 

1)  « 

«USFC*LW* 

P* 

3  * 

1)  s 

.USFCDmwh 

P  e 

4  , 

1)1 

eUSFCPMWH 

1 

P* 

5  ♦ 

1 )  * 

1 

•USFCPMOM 

'P. 

5. 

5)* 

.USFCPEOM 

’P» 

6 » 

5)  • 

N4-USFCBFS*'P*USPDSm 
P*USPOCN'N+USFCBFwh 
N*USFCP<SH'P*USpOSM 
P*USP0CN'n+USFCPnmh 
n+USFCmlSm'p*USPDSm 
P*USpOCn*n+uSFCmLwh 
n  +  USFCDmS“,P*iJSPDSm 
P*USPOCN 'N^USFCOMwh 
n<-USFCPmSm'P*USPDSm 
P*USpDCN»n*USFCPmwh 
N4USFCPESm ' P*USPPSM 

P*USP0CN'N4USFCPEmm 


N  + 

P*USPDwh'N| 

N* 

P*USPO«H • N | 
N4 

P*USPOhM INI 
N* 

P*USPDwHINI 

N* 

P*USPD4W  *  Nt 
N* 

P*USPDWH'N» 


oprtoata  USFCBF  USFCPK  USFCML  USFCDM  USFCPM  USFCPE* 

DOCORE  OPR THAT (USFCEL AS fUSFCROWE ' L tUSFCCOLE ' LtOiO * «19,USF CTI TL' L» 1 )  * 
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I-B.3.h.  USGOLLP  -  Coefficients  for  Livestock  Product  Equations 


Analagous  to 
coefficients  for 


other  constant  entry 
all  of  the  livestock 


programs,  this  program  enters 
number  and  supply  equations. 


OUTOPT  RMARG  132  FPTPIELD  14  TABWIOTH  T  I 
£PR I  NT 


* 

USGHLLP  -  COEFFICIENTS  FOR  LIVESTOCK  PRODUCT  EQUATIONS 

* 


£END 

CEO  I T  USGOLI 
CHANGE 

USIAPFPC  -0.096 


USLSBBPC 

usospppc 


0.142 

0.11A 


USLNOHLG  0.964  . 

USLNPELG  0.0  » 

I 

FILE! 

B1NDVAL  CONST  USGOLI 
DORANGE  1979  TO  1981  I 

DOCORE  INTERCPT-USLABF/I ( (USPSBF  /USFCBF 

• ( ( USPSBP  (-1 ) /USFCBF  (-1 ) >**USLABFPL*C)*USLNBF • N ) I 

no  USLABFI'C  ■  HEANMNTERCPT )  l 
DOCORE  INTFRCPT-USLSBF/ ( ( (USPSBF  /USFCBF 

*((USPSBF  ( -1 > /USFCBF  (-1) )**USLSBFPL'C)*USLNRFiN) |„ 

DO  USLSBFI'C  «  MEAN( INTERCPT) i 
DOCORE  INTERCPT«l)SOSBF/(  (  (USPSBF  /USFCBF 

•  (IUSPSBF  (-D/USFCPF  (-1)  )**USQSBFPL»C) 

(  <WU$0SBFTR'C)**T1ME'X)  )  | 


)**USLABFPC 'C ) 


) **USl SBF  PC ' C  ) 


)**USOSBFPC  'C  ) 

USLSBF ' N* 


DOCDPE  INTERCPT»USOSPE/( ( (USPSPE 


/USFCPE 


♦((USPSPE  ( -1 ) /USFCPE 
( (1+USQSPFTR*C)P*TIME*X) )  | 

DO  USOSPEI'C  ■  MEAN( INTERCPT) I 
DORANGEl 

DOCORE  USLPELAS»haTREP(USLPELAS»USLABFI 'C* 
DOCORE  USLPELAS»"ATREP(USLPELAS»USLSBFI *C» 
DOCORE  USLPELAS»MATREP(USLPELAS»USOSBFI »C» 


) ♦♦USOSPEPC ' C ) 


(-1) )PPUSOSPEPL'C)*USLNPE ' N* 


1* 
2  * 
3* 


1  )  I 
1)1 
l)i 


DOCORE  USLPELAS-HATRFP(USLPELAS,USLNDMLG'P»  10»  5)1 
DOCORE  USLPELAS»MATREP(USLPELAS»USLNPELG'P»  13.  5)1 
DO  USLPFLAS-USLPElASI 

DOCORE  OPRTMAT (USLPELAS.USLPROWE 'LtUSLPCOLE  »L.0.0.*2B 


♦  USLPTITL  »L.l ) • 
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I-B . 3 . i 


USGOLDP  -  Coefficients  for  Dairy  Product  Supply  Equations 


This  program  enters  elasticities 
equations  and  updates  the  intercepts 
display  matrices  are  updated. 


for  the  dairy  product  supply 

for  these  equations.  All  appropriate 


OOTOPT  RHARG  132  FPTFIELD  14  TABHIDTH  7  ; 

SPRINT 

************************************************************************ 

* 

USGOLDP  -  COEFFICIENTS  FOB  DAIRY  PRODUCT  SUPPLY  EQUATIONS 

* 

************************************************************************ 

REND 

CEDIT  USGOL; 

CHANGE 

USQSDBDB  .50  , 

OSQSDCDB  -.22  , 

USQSDOD3  0.06  , 

□SQSDBDC  -.70  , 

USQSDCDC  0.70  , 

USQSDODC  -1.50  , 

USQSDBDO  0.20  , 

USQSDCDO  -.48  , 

USQSDODO  1.44, 


FILE; 

BINDVAL  CONST  USGOL; 

DORANGE; 

DO  USQHDH  =  USQSDH  -  USQDDH  ; 

DORANGE  1979  TO  1981  ; 

DOCORE  INTERCPT=USQSDB' N/  (  (  (USPSDB  /USPSDH 
* (  (USPS DC  /US PSD B  ) **USQSDBDC« C) * (  (USPSDO 

•USQHDH  )  ; 

DO  USQSDBI ' C  =  HEAN  (INTERCPT)  ; 

DOCOPE  INTERCPT=USQSDC* N/ {(  (USPSDB  /USPSDH 
* ( (USPSDC  /USPSDH  ) **USQSDCDC' C) *(  (USPSDO 

•USQHDH  )  ; 

DO  USQSDCI 1 C  =  HEAN (INTERCPT) ; 

DOCORE  INTERCPT=USQSDO' Ny (( (USPSDB  /USPSDH 
*(  (USPSDC  /USPSDH  )  **USQSDODC'C)  •(  (USPSDO 

•USQHDH  )  ; 

DO  USQSDOI'C  =  HEAN  (INTERCPT)  ; 

DORANGE  ; 

DOCORE  USDPELAS=HATREP(USDPELAS,USQSDBI*C,  1,  1) 
DOCOBE  USDPELAS=H ATBEP (USDPELAS, USQSDCI' C,  2,  1) 
DOCORE  USDPELAS=H ATREP (USDPELAS, USQSDOI'C,  3,  1) 
DOCOBE  USDPELAS=H ATREP (USDPELAS, USQSDBDB'C, 1,2)  ; 
DOCORE  USDPELAS=H ATREP (USDPELAS , USQSDCDB' C, 2, 2)  ; 
DOCORE  USDPELAS  =  HATREP(USDPELAS,DSQSDODB,C,3,2)  ; 
DOCORE  USDPELAS=HATREP(USDPELAS,0SQSDBDC,C,1,3) ; 
DOCOBE  USDPELAS=HATREP(0SDPELAS,USQSDCDC*C,2,3)  ; 
DOCOBE  USDPELAS=HATBEP (USDPELAS, US QS DO DC* C, 3,3)  ; 
DOCOBE  USDPELAS=fl ATBEP (USDPELAS, USQSDBDO'C, 1,4)  ; 
DOCOBE  USDPELAS  =  H ATREP (USDPELAS , USQS  DCDO ' C, 2 , 4)  ; 
DOCORE  USDP EL AS=H ATBEP ( USDPELAS , USQSDODO*  C , 3,4)  ; 
DOCOPE  X  =  ROWSUH  (USDPELAS, 0,COHBINE  (2,  3,4)  )  ; 
DOCORE  I=-1. 0*X ; 

DOCOBE  USDPELAS  =  H ATBEP (USDPELAS ,X,0, 5) ; 

DO  0SD?ELAS=DSDPELAS; 

OPRTDATA  USQHDH ; 

DOCOPE  OPRTHAT (USDPELAS, USDPBOWE'L, USDPC OLE' L,0r 


) **USQSDBDB'  C) 

/USPSDH  ) **USQSDBDO'C) 


) **USQSDCDB*  C) 

/USPSDH  )  **USQSDCDO'C) 


)  **USQSDODB*  C) 

/USPSDH  ) **USQSDODO'C) 


0,-28  ,  USDPTITL  '  L,  1)  ; 


30 


I.B.3.j.  USGOLFP  -  Parameters  for  Feed  Demand  Equations 


OUTOPT  RMARG  132  FPTF I  ELD  1*  TABHIDTH  7  I 
fc  PR  1  NT 

A*********************************************************************** 

USGOLFP  «  PARAMETERS  FOR  feed  demand  EQUATIONS 

* 

ft*********************************************************************** 

EEND 

CEDIT  USGPLI 
CHANGE 


USLPWTHF 

0.650O0 

USL  PwTPK 

0,08000 

USLPwTML 

0,01000 

USLPhTDM 

0,06000 

USLPwTPm 

0,12000 

USLPWTPF 

0.08000 

USGCAIJ9P 

1,02000 

USGCAUPK 

1,28000 

USGCAUML 

0.0 

USGCAUOM 

0,46000 

USGCMUPM 

0,01000 

USGCAUPE 

0,0 

I 

FILEI 

0INOVAL  CONST  usgoli 
DOR ANGE I 

DO  USLPI-USLPWTBF ' PPUSPSMF  aUSLPWTPK ' P*U$P$PK  ♦ 

USLPMTML’ P*U SPSmL  ♦USLPWTDM * P*uSPSOM  aUSLPwTPm ' PAUSPSPM  aUSLPwTPE ' P*USPSPF  l 
DO  USGCAU-USGCAUBF ' P*(iStNBF ' n+USGC AUPK • P*USLNPK ' N4 

USGCAUML*  P*USLNmL 'N  +  USGCAUOm ' PAUSLND* ' N+USGCMUPM • P*US0SPM • NaUSGCAuPE ' P*USLNPE 'Ni 
DOCORE  USFPELAS»*-ATREP(USEPELAS»USLPwTRE 'P»  It  l)l 
DOCORE  USFPElAS«MATREP(USFPEl_AS*USLPWTPK'Pt  2»  l)l 
DOCORE  USFPELAS»MATREP(USFPELAS»USLPWTML'Pf  3*  1>» 

DOCORE  USFPFLAS«maTREP(USFPELAS»USLPWTDm«p,  a,  1)i 
DOCORE  USFPELAS»MATREP(USFPELAS.USLPWTPM«pf  5,  Di 

DOCORE  USFdeLAS«mat«ep(USFPELaS»USLPmtpe'P*  6»  l)i 
DOCORE  USFPELAS-maTREP  (USFPELAS*USGCAIj9F 'Pt  1.  2)1 
DOCORE  USFPELAS-MATREPIUSFPELAStUSGCAUPK’Pt  2»  2)1 
DOCORE  USFPELAS*maT«EP(USFPFLAS»USGCAUML'P.  3t  2) I 
DOCORE  USFPELAS»MATREP(USFPELAStUSGCAUDM'P*  A*  2)1 
DOCORE  USFPELAS»maTrEP(USFPELAS»USGCMUPm»p,  3,  2)1 
DOCORE  USFPELAS«mATrep(USFPELAS»USGCAUPE 'P»  6*  2)1 
DO  USFPELAS-USFPELASl 
OPRTDATA  USLdI  USGCAlIl 

DOCORE  OPRTMAT(USFPELAS*USFCROWE 'LtUSEPCOLE 'L*0.0.«26»USFPTITL'L*1 ) I 
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I-B.3,k.  USGOLQF  -  Coefficients  for  Feed  Demand  Equations 

This  program  enters  feed  demand  elasticities  and  updates  the 
appropriate  intercepts  and  matrices. 


OUTOPT  RHARG  132  FPTFIELD  14  TABBIDTH  7  ; 

6PBX  NT 

************************************************************************ 

« 

USGOLQF  -  COEFFICIENTS  F03  FEED  DEHAND  EQUATIONS 
* 


****************************  *****************  *************************** 


SEND 

CEDIT  U S GO L 5 
CHANGE 

USQFWHHH  -1.00  , 

USQPCNBH  0.01  , 

USQFCGHH  0.01  , 

USQFSHKH  0.02  , 

USQFOHWIl  0.02  , 

USQPKHCN  0.60  , 

f  l 

USQFCGOM  .04 

OSQFSHOH  Oc  05  » 

USQFOHOH  “1.29  , 

FILF ; 

BINDVAL  CONST  USGOL; 

DOPANGE  1979  TO  1981  ; 

DOCOBE  INTERC?T=USQF«H/  (  (  (USPDWH8 N/USLPI  ) **USQFWHBH8 C) 

♦  (  (US PDCN 8  N/USLPI  ) **USQPBHCN8 C) *  (  (USFDCG* N/USLPI  )  **0SQF BHCG' C) 

*(  (USPDSH8 N/USLPI  ) **USQFHHSH« C) *  {(USPDOM 8 N/USLPI  ) **USQP BHOH8 C) 

•USGCAU  )  ; 


f 


\ 


\ 


DO  USQ  FS  HI  *  C  =  HEAN  (INTERCPT)  % 

DOCOBE  INTERCPT= USQFOM/  (  (  (USPDBH*  N/USLPI  ) **  USQFOHBH*  C) 

*  {  (USPDCN*  N/USLPI  )  **USQFQHCN8C)  *  (  ^ US PDCG • N/USLPI  )  **USQPOHCG'C) 

*  {  (US PDSN*  N/USLPI  ) ♦  ♦USQFQHSH*  C) *  (  (US PDOH  8 N/USLP I  ) ** USQPOHOH 8  C) 

*OSGCAU  )  ; 

DO  DSQFQH1  '  C  HEAN  (XNTBRCPT)  ; 

DORANGE  ; 

DOCORE  USQFELAS^BATREP (USQFELAS ,USQFWHI'C,  1,  1); 

DOCOBE  USQFELAS=RATREP(USQFELAS,USQFCNI'C,  2,  1); 


I 


1 


DOCORE  USQFELAS=MATREP ( USQFELAS , USQFCGOH • C ,  3,6); 

DOCORE  USQFELAS=HATREP(USQFELAS,USQFSHOH'C,  4,6); 

DOCORE  USQFELAS=HATPEP (USQFELAS, USQFOHOH' C,  5,6); 

DOCORE  I  =  ROBSUH  (USQFELAS,  0,  CO HBIN E  (2 , 3 , 4 , 5 , 6) )  ; 

DOCORE  X=  - 1 „ 0*X; 

DOCORE  USQFELAS=HATREP(USQFELAS,X,0,7) ; 

DO  USQFELAS= USQFELAS; 

DO  OPRTHAT (USQFELAS, OSQ FROB E * L, USQFCOLE ' L, 0 , 0,-26  , USQFTITL  '  L ,  1 )  ; 
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I.B.3.1.  USGOLQI  -  Coefficients  for  Industrial  Demand  Equations 


OUTOPT  RMabg  132  FPTFIELO  14  TABw I DTH  7  I 
SPRINT 

*************************************************************4********** 

* 

USGOLQI  -  COEFFICIENTS  FOR  INDUSTRIAL  DEMAND  EQUATIONS 

* 

************************************************************************ 

SEND 

CEDIT  USGOLI 
CHANGE 

USQICNCN  0.0  ♦ 

USOICNTR  0,0*7  . 

I 

FILE* 

BINDVAL  CONST  USGOLI 
OORANGE  1979  TO  1981  I 

noenRE  INTEPCPT  •  USQICN/  ( ( USPDCN • N/USPNG *  X ) **USO I CNCN ' C* 

(14USQICNTR »C )**TIme »X)  I 
00  USOICNI'C  ■  MEAN< INTERCPT  )  I 
OORANGE  I 

DOCORE  USO!ELAS"MATREP(USOlELAS*USOICNI *C»  1*1)1 

DOCORE  USOIELAS«MATREP(USQIElASfUSOICNCN'Ct  l»2)l 
OOCORF  USOIELAS«MATREP(USQIELAS»USOICNTR *C*  1*3)1 

DO  USOIEL AS-USOIELASI 

DO  OPR That (USQlELAStUSOJROWE 'LtUSOICOLE ' L ♦ 0 , 0 . -26 ♦ USQ I T 1 TL  '  L *  1 )  I 
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I-B.3.m.  USGOLQD  -  Coefficients  for  Food  and  Non-Feed 
Demand  Equations 


This  program  enters  all  of  the  demand  elasticities  and  does  the 
associated  housekeeping. 


OUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7  I 
SPRINT 


* 

USGOLOD  -  COEFFICIENTS  FOR  FOOD  AND  NON-FEED  DEHAND  EQUATIONS 

* 

************************************************************************ 


SEND 

CEDIT  USGOLI 

Change 

'JSODBFBF 

1 

•  *  64 

1 

USODDPIN 

.50 

USODDCIN 

.30 

USODDOIN 

.00  * 

I 


FILE  I 

B I  NOV  At  CONST  USGUll 
PORANGE  1979  TO  1991  I 

DOCORE  INTFRCPT»US0D9F/( ( ( USPQBF ' N/USPNG ' X )**USQDRFRF ■ C ) 

*« (USPDPK  * N/USPNG *  X  )**nSQDBFPK 'C  >* ( ( USP DHL 'N/USPNG' X ) **USCDBFmL ' C ) 
*(  (USPODM  '  N/USPNG  »  X  )**US009F0M»C  >*<  (USpPPm  'N/USPNG  '  X  )  **US0DBFp(-  •  C  ) 
*nuSPDPE'N/USPNG'X)**USCDBFPBeC)*<{USPDWW#N/USPNG‘X)**USCDPFww»C) 
*{ (USPDCN' N/USPNG 'X )**USOD9FCN'C >*( ( USPQCG ' N/USPNG ' X ) **USODBFCG ' C ) 
•( (USPDRI 'N/USPNG ' X )**USOO0FR I 'C>*< ( USPDSB ' N/USPNG ' X » **USC0Rc SB ' C ) 
*< (USPDOS'N/USpNG'X)**USODBFOS'C)*( (DSp0Sm'N/U5PnG' X )**U$CDBF$M,C ) 
*(  (USPDSO'N/USPNG'X)**'JSODRFSO'C)*(  < USpDOM ' n/USPNG ' X ) **USCDBFOM • C ) 
*( (USPDOO' N/USPNG ' X ) **USQD8P00 ' C )* ( ( USPQOB ' N/USPNG ' X ) **US0DBF  09 ' C ) 
*( (USPDDC 'N/USPNG' X)**USQDBF DC 'C)*( ( USPDOO ' N/USPNG ' X ) **US0DBF DO ' C ) 
*<  <USINC'X/(USPNG'X*USPOP'X) )**USODBFIN«C)*USPOP'X) l 
DO  USQDBF I ' C  ■  MEAN( INTERCPT) I 

f  t 

DOCORE  INTeRCPT«US00D0/ ( < ( USP09F ' N/USPNG ' X ) **USQODOBF ' C ) 

*( (USPDPK 'N/USPNG' X ) **USQDD0PK ' C )* ( (USpDML 'N/USPNG ' X )**USOODUML ' C ) 
•((USPOnM* n/USPnG' X )**USODDODm'C )*((USpDdm 'N/USPNG' X )**USCODOPM ' C ) 
*( (USPOPE 'N/USPNG 'X)**US0DD0PE 'C)*( ( USPOWH ' n/USPNG ' X ) **USCDD0wh < C ) 
*( (USPCCN' n/USPnG ' X )**US0D00CN'C>*( ( USPDCG ' N/USPNG • X ) **US00D0CG ' C ) 
*( (USPDRI ' N/USPnG' X )**USODDOR I *C>*< ( USPDSB ' N/USPNG ' X ) **USOODOSB ' C ) 
•( (USPD0S'N/USPnG'X)**US0DD00S'C)*< (USPOSM' N/USPNG 'X )**USQDDOS*'0> 
*(  (USPnSD' N/USPNG 'X  )**US00D0S0'C  )*(  ( USpD0M  '  N/USPNG '  X  )  **USC'DDOO*  •  C  ) 
*( (USPDOO* N /USPNG*  X)**US0DD000'C  »*( ( USpDDB ' N/USPnG ' X ) **USC DDODB  '  C ) 
*( (USPDDC 'N/USPNG 'X)**US0D00DC'C)*( ( USPDOO • N/USPNG ' X ) **US00D0D0 ' C ) 
•< (USINC'X/(USpNG'X*USPnP'X) )**USQDDOIN'C)*USPDP'X) » 

DO  USQDDOI'C  ■  MEAN( INTERCPT > I 
DORANGE  I 

DOCORE  USODELAS«MATREP(USODELASf USODBF  I 'C*  1*  1)1 

DOCORE  USODELAS»maTREP(USQOELAS.USODPKI «C»  2*  1)1 


I 


t 


i  I 

DOCORE  USODELAS-MATREPd'SODELAS*  USODOOIN'Ct  16*  22>» 

DOCORE  USOOELAS»MATREP ( USODELAS ♦  USQDPBIN'C*  17*  22)1 
DOCORE  USODELAS-MATBFPdjSODELAS*  USQDDCIN'C*  19*  22)1 
DOCORE  USODELAS*maTrEP (USODELAS*  USODDOIN'C*  19*  22 ) » 

DOCORE  X*ROWSUM(USQDElA$«  0* 

COMBINE (2*3*4. 5*6* 7 *8*9* 10* 11 *12*13* 14*15* 16* 17* 18* 19*20*22 ) )  I 
DOCORE  X»-l,0*X» 

DOCORE  USCDELAS«maTREP(US0DELAS»X,0*21) I 
DO  U$ODELAS«USODELASl 

DOCORE  OPRTMAT (USQDELAS.USOORONE ' L.USOOCOLE ' L*0.0* -28  ♦ USQDT I TL 'L*1U 
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I-B.3.n.  USGOLSK  -  Coefficients  for  Stock  Equations 

This  program  enters  stock  equation  elasticities  and  updates 
appropriate  intercepts  and  the  display  matrix. 


OUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7  I 
SPRINT 

************************************************************************ 

USGOLSK  •  COEFFICIENTS  FOR  STOCK  EQUATIONS 

* 

************************************************************************ 

SEND 

CEOIT  USGOLI 

Change 

USSKBFBF  0.0 

USSKPKPK  -o.l 

USSKM(_*l  0.0 

USSKPMPM  o.o 

\ 

USSKDBD8  0.0 

USSKDCDC  0.0 

USSKDODO  0.0 

USSKDBPR  1,00  ♦ 

USSKDCPR  l.OOi 
USSKDOPR  1.00. 

I 

FILE » 

BINOVAL  CONST  USGOLI 
DORANGE  1979  TO  1981  I 

DOCORE  IMERCPT  ■  USSK8F ' N/ (( USPDBF ' N/USPNG « X ) **USSKBFBF ' C* ( USOOBF ' N+US0S8F • N )) | 
00  USSKBFPC  •  MEAN(  INTERCPT)  I 

OOCOPE  INTFRCPT  •  USSKPK »N/ ( (USPDPK »N/USPNG' X )**USSKPKPK ' C*( USODPK ' N*USQSPK IN) ) I 
00  USSKPKPC  *  MEAN(  INTERCPT)  • 


I  •  I  I 

OOCORF  INTERCPT  ■  U5SKDC ' N/ ( (USPODC 'N/USPNG*  X )** USSKDCDC 1 C*( US PR DM  /USPSDm) 

•♦USSKDCPR 'C*(USQODC»N+USQSnc  *  N ) ) | 

DO  USSKDCI'C  ■  HEAN( INTERCPT) I 

OOCOPE  INTERCPT  ■  USSKDO » N/ (( USPODO ' N/USPNG ' X ) **USSKDODO ' C* ( USPROM  /USPSDM) 

**USSKDOPR'C*(USODDO'N+USOSDn'N) ) I 
00  USSKDOI'C  ■  mean( INTERCPT ) l 
DORANGE  I 

DOCORE  USSKfLAS*MATREP(USSKELAS.USSKBFI 'C*  1»  1)1 

OOCORE  USSKELAS*MATREP(USSKFLAS.USSKPKI 'C.  2.  1)1 

DOCORE  USSKELAS*maTrEP(USSKELAS»USSKMLI 'C»  3»  1)1 

1  i  I 

OOCORE  USSKELAS*maTREP(USSKFLAS»USSKDOPR 'C*18»  3)1 
DO  USSKELAS-USSkELASI 

OOCORE  OPRTMATUJSSKELAS.USSKROWE  *LtUSSKCOLE 'L.0f0.-28.USSKT1TL,L»1 ) * 
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I-B.3.o.  USGOLQT  -  Definitions  for  Trade  Quantity  Equations 


OOTOPT  R  M AEG  132  FPTFIELD  14  TABHIDTH  7  ; 

6PRINT 

************************************************************************ 

* 


OSGOLQT  -  DEFINITIONS  FOE  TB 
* 

**************************** 

6  END 

DORANGE  ; 

DO  OSQTBF=USQSBF'  N 
DO  USQTPK=USQSPK«N 
DO  USQTML=OSQSHL*N 
DO  USQTPf!=USQSPH'N 
DO  USQTPE^USQSPE* N 
DO  USQTSH=OSQSWn 
DO  USQTCN=USQSCN 
DO  USQTCG=USQSCG 
DO  USQTRI=USQSRI 
DO  USQTSB=USQSSB 
DO  US  QTOS=U  SQSOS 
DO  DSQTSH=USQSSK 
DO  USQTSO=USQSSO 
DO  OSQTOH=USQSOM 
DO  USQTOO=OSQSOO 
DO  USQTDB=USQSDB ' N 
DO  USQTDC=USQSDC*  N 
DO  USQT DO=USQSDO *  N- 
QPRTDATA  USQT**; 


ADE  QUANTITY  EQUATIONS 

******************************************** 


-USQDBF*  N 
USQDPK ' N 
-USQDflL' N 
-USQ  DPM  *  N 
-OSQDPE*  N 
-USQDBH 
— USQDCN 
-USQDCG 
-USQDBI 
— USQDSB 
-USQDOS 
-USQDSH 
-USQDSO 
-USQDOH 
“USQDOO 
USQDDB* N- 
USQDDC  6  N- 
USQDDG*  N- 


-  (USSKBF*  N-USSKBF*  N ( 
- (USSKPK  *  N-USSKPK*  N ( 

-  (DSSKHL • N-USSKNL' N ( 

-  (USSKPH' N-USSKPH*  N ( 

-  (DSSKPE* N-OSSKPE*  N ( 
• N-USQFHH*  N- (USSKWH* 

*  N-USQFCN' N-  ( USSKC N ' 
’ N-USQFCG*  N-  ( USS  FCG  * 
•N- (USSKRI • N-USSKRI' 
• N-OSQCSB*  B- ( USSKSB' 

*  N— USQCOS • N“  (USSKOS* 
• N- USQFS  H • N-  (USSKSfl  • 
• N-  (USSKSO*  N-USSKSO* 

*  N-OSQFOH*  N-  (USSKOrt1 

*  N  -  (USSKOO® 

(USSKDB-USSKDB  («  1?)  ; 
{ US SKDC—  DSSKDC(“1J  )  ; 
(USSKOO-OSSKDO  (-1)  )  ; 


i) )  ; 

-i) )  ; 

-i) )  ; 

-i) ) ; 

N-USSKWH*  N  (-  1)  ) 
N-USSKCN  e  N  (-1)  ) 
It-  USSKCG  *  N  (-1)  ) 

n  (- 1) )  ; 

N-USSKSB'  N  (-1)  )  ; 
N-USSKOS*  N  (-1)  )  ; 
N-USSKSH • N (-1) ) ; 

B(-D)  : 

M-USSKOH' N (-1) ) l 
N-OSSKOO*  N  (-1)  )  ; 
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I-B.3.p.  USGOLPE  -  Parameters  for  Demand  Price  Estimation  Equations 


DUTOPT  RMARG  132  FPTFIELD  14  T ABw I DTH  7  I 
tPR INT 

************************************************************************ 

* 

USGOLPE  -  PARAMETERS  FOR  DEMAND  PRICE  ESTIMATION  EOUATIONS 

« 

************************************************************************ 


EENO 

CEOI T  USGOLI 

Change 

USpEPFWO  0.3  . 

USPPPKWO  0,9  * 

USPEMlmq  0.9  » 

UjpppMwO  0.9  . 

USPEPEWO  0.9  . 

USPEWHkO  0.5  . 

USPFCNWQ  0.9  . 

USPECGWO  0.9  ♦ 

USPERIWO  0,9  * 

USPESRwO  0.9  . 

USPFOSWO  0.9  . 

USPESmmq  0.9  . 

USPESOWO  0.9  t 

USPEOmwo  0.9  » 

USpEO0W0  0.5  . 

USPFORwO  0,4  , 

USPEDCWO  0.2  * 

USPEOOWO  0.2  . 

I 

FILE! 

BINOVAL  const  USGOL • 


DORANGE  I 

OOCOR F  USPEEL AS-MATRE 
OOCORE  USPEELAS"mATRE 
DOCORE  USPFELAS-maTRE 
OOCORE  USPEELAS-maTRE 
OOCORE  USPEFLAS»maTrE 
OOCORE  USPFELAS»maTRE 
OOCORE  USPEELAS«maTRE 
OOCORE  U5»feLAS«matrp 
OOCORE  USpfELAS-maTRE 
OOCORE  USPEELAS-matre 
OOCORE  USPEEL AS»maTRE 
OOCORE  USPEELAS-MATRE 
OOCORE  USPEEL AS-MATRE 
DOCORE  USPEELAS»maTRE 
OOCORE  USPFELAS-MATRF 
DOCORE  USPEEIAS«maTRF 
OOCORE  USPEELAS»maTRE 
DOCORE  USPEELAS-maTre 
DO  USPFELAS-USPFELASI 
DO  OPRTmaT (USPEELAStU 


P(USPEELAS» 
P(USPEELASt 
P(USPEFLAS. 
P(USPEELAS. 
P(USPEELAS» 
P(USPEELA"S. 
R(USDEELASt 
P'USPEELAS. 
P(USPEELAS» 
P(USPEELAS. 
P(USPEELAS. 
P ( USPEELAS  * 
p (USPEELASt 
P ( USPEELAS* 
P( USPEELAS* 
P(USPEELAS. 
P (USPEELAS* 
P ( USPEELAS* 


USPEPFWO 

USPEPKWc 

USPEMLWO 

US°EPMWc 

USpEPEWO 

(J$DEWMWO 

USPECnwo 

USPECGWO 

USPERIWO 

USPESBwq 

USPEOSW0 

USPFSMWO 

USPESOWO 

USPEOMwg 

USPEOOWO 

USPEDPWQ 

USPEOCWO 

USPEOOWO 


•  1* 

1  )  1 

*  2* 

1  )  • 

.  3* 

1)1 

*  4* 

1M 

.  5* 

1  )  1 

♦  6* 

1 )  • 

.  7* 

1  )  1 

*  8* 

1  )  l 

*  9* 

1  )  f 

♦  10* 

1  )  l 

*11* 

1 )  1 

.12* 

1)1 

.13. 

1)1 

*14. 

1)1 

*15. 

1 )  1 

.16* 

1)1 

♦  17. 

1)1 

♦  18* 

1 )  1 

SODROWE 'L*USPOCOLE 'L*0*0.«28*USPDTITL 'L*l ) • 
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I~Bo3.q.  USGOLPD  -  Coefficients  for  Demand  Price  Equations 


OUTOPT  R*APG  132  FPTPIELP  14  TABWJDTH  7  I 
£  PR  I  NT 

************************************************************************ 

* 

USGOLPD  ®  COEFFICIENTS  FOR  DEMAND  PRICE  EOUATION$ 

* 

£END 

B I  NOV  At  CONST  USGOLl 
DORANGF  1979  TO  1981  I 

DOCORE  INTERCPT-IUSPDOR'NeUSTCDM  -US*DD* ' N.uSTPDM  )/ 

( (USOSDB'N*ltSPSnB  tUSOSOC *N*USPSDC  ♦USQSDO,N*USP$DO  )/USO*D* 

DO  USPDDMJ'C  o  MEAN( INTERCPT  )  I 
DORANGE  » 

DOCORE  USPOELAS«MATREP (USPDELASfUSPDDMl 1  C  *  4  *  1 )  I 
DO  USPDELAS-USPDELASt 

DO  OPRTMAT(USPDELAS»USODRORE  «L«USPDCOLE'L»OfO*-28,USPDTITL '1*1 ) » 


I-B.4.  Programs  for  Printing  Information  about  a  Country  Model 

TROLL  has  many  useful  commands  which  can  display  information  about 
models.  The  programs  of  TROLL  commands  presented  below  use  various 
combinations  of  these  "display"  commands  to  produce  printouts  of  model 
information.  Examples  of  output  will  be  illustrated. 
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I-B.4.a.  USGOLPTM  -  Print  a  Country  Model 


This  program  produces  a  listing  of  a  country  model  along  with  all  of 
the  symbol  and  equation  comments  that  document  the  model.  In  addition, 
the  coefficient  display  matrices  are  printed  out.  The  printout  of  USGOL 
equations  and  comments  in  Roningen  and  Liu  was  produced  by  this 
program.  3/ 


OUTOPT  BHflRG  132  FPTFIELD  14  TAHWJDTH  7| 

S,PR  INT 

************************************************************************ 

* 

USGOLPTm  -  PRINT  USGOL  AND  ITS  DISPLAY  MATRICES 
USMAELAS  -  MARGIN  ELASTICITIES 
USARELAS  -  CROP  AREA  ELASTICITIES 

USYDfcLAS  -  CROP  yield  elasticities 

USULELAS  -  OILSEED  PARAMETERS  AND  ELASTICITIES 
USFCElAS  -  FEED  COST  PARAMETERS 

USLPELAS  -  LIVESTOCK  AND  LIVESTOCK  PRODUCT  ELASTICITIES 
USDPELAS  -  DAIRY  PRODUCT  elasticities 
USFPELAS  -  FEED  DEMAND  PARAMETERS 
USOFELAS  -  FEED  DEMAND  ELASTICITIES 
USOIElAS  •  INDUSTRIAL  Demand  ELASTICITIES 
USODELAS  -  FOOD  AND  NQn-FEED  DEMAND  ELASTICITIES 
USSKELAS  -  STOCK  ELASTICITIES 
USPEELAS  -  PRICE  ESTIMATE  DAMPING  PARAMETERS 
USPDELAS  -  DEMAnD  PRICE  ELASTICITIES 
* 


************************************************************************ 


usemod  usgol i  Print  USGOL  and  all  comments 

modediti  i 

print  all  commenti  f  Print  matrices  of  constants 
quit  i  i- 

DO  OPRTMAT(uSMAELAS*USMARnwE 'L.USMACOLE'L.O, 0.-28 
DO  OPRTMAT(USARELAS»U$ARRO*E 'L.uSARCOLE 'L.O. 0.-26 
DO  OPRTmaT(uSYDELaS.uSYORU*E  » L .uSYDCOLE ' L » 0. 0 ♦ -26 
DO  QPRTmaT (uSOLELAS.USOLROmE 'L.uSOLCOlE 'L.O, 0.-22. 
DOCORE  OPRTm AT (USFCELAS .USFC«OWE 'L.USFCCOLE'L.O.O. 
DO  OPRTMAT (USLPELAS. USL PRUmE 'L.USLPCOLE  » L.O .0.-28 
DO  OPRTM AT (USDPEL AS. USDPROmE 'L.USDPCOLF 'L.O .0.-28 
DOCORE  OPRTM AT (USFPELAS. USFCROWE 'l.USFPCOLE 'L.O. 0, 
DO  OPRTm  AT  (USOFELAS.USOFRQWE  'L.USuFCOLE  'L.O.'O. 

DO  OPRTm AT (USOI EL AS.USOI Rome 'L.USOICOLE 'L. 0.0. -26. 
DOCORE  OPRTM AT (USOnELAS.USODROwE'L.USOOCOLE' L.O. 0. 
DO  OPRTm AT ( uSSKELAS .USSKROmE ' L.USSKCOLE ' L.0.0.-28. 
00  OPRTM AT (uSPEELAS.USSKRO*E'L.USPE£OLE'L.O.O.-2B* 
00  0PRTMAT (USPDELAS .USODRO-E 'L.USPDCOLE 'L.O. 0.-28. 


and  elasticities  for  USGOL 


.USMATITL ' 

L.l 

)  1 

.USARTITL' 

L.l 

)  1 

.USYDTITL ' 

L.l 

)  1 

usoltitl 'L 

.1) 

1 

-19.USFCT1 

tl’ 

L.l 

)  1 

.DSLPTITL ' 

L.l 

)  1 

.USDPTITL ' 

L.l 

)  1 

-19.USFPTI 

TL' 

L.l 

)  1 

-26  ♦ USL  F  T 

I  TL 

'L. 

1 )  1 

USOITITL 'L 

.1) 

1 

-28  » USODT 

I  TL 

'  L » 

1)1 

USSKTITL'L 

.1  ) 

1 

uspetitl'l 

.1) 

1 

USPDTITL 'L 

♦  1) 

1 

I-B.4 . b.  USGOLPTC 


Print  Matrices  of  Coefficients 


for  a  Country  Model 


This  program  prints  all  the  matrices  of  coefficients  for  the  model 
plus  a  listing  of  the  current  values  of  the  coefficients  in  the  constant 
file  in  alphabetical  order  by  constant  name. 


3/  Roningen  and  Liu,  op.  cit. 
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-  MARGIN  ELASTICITIES 

*  CROP  area  ELASTICITIES 

»  CROP  YIELD  ELASTICITIES 

*  OILSEED  PARAMETERS  AnD  ELASTICITIES 

-  FEED  COST  PARAMETERS 

-  LIVESTOCK  AND  LIVESTOCK  PRODUCT  ELASTICITIES 
p  DAIRY  PRODUCT  ELASTICITIES 

p  FEED  DEMAND  PARAMETERS 

*  FEED  DEMAND  ELASTICITIES 

*  INDUSTRIAL  DEMAND  ELASTICITIES 

»  FOOD  AND  NON-FEED  DEMAND  ELASTICITIES 

*  STOCK  ELASTICITIES 

■  PRICE  ESTIMATE  DAMPING  PARAMETERS 

*  DEMAND  PRICE  ELASTICITIES 

*  EQUATION  INTERCEPTS 

*  SUPPLY  ELASTICITIES 

»  OILSEED  CRUSHING  PARAMETERS 

■  DAIRY  PROOuCT  ELASTICITIES 

-  OEmAnD  ELASTICITIES 

■  price  (Internal)  estimation 
mechanism 

»  hORLD  market  clearing,  MECHANISM 


Damping  PARAMETERS 


PRICE  DAMPING  PAR 


OUTOPT  RMARG  88  FPTFIELD  14  TABwIDTh  4  I 
£PR INI 

******************************************  ****************************** 

* 

GOLPTC  -  PRINT  MATRICES  SUMMARIZING  THE  CURRENT  PARAMETERIZATION  OF  &-<_ 

THESE  MATRICES  DISPLAY  ALL  OF  ThE  ELASTICITIES*  COE F F I C 1 F NT S, AeP 
PARAMETERS  MH1CH  ARE  EMBEODED  IN  THE  MODEL  EQUATIONS,  THE  MXTrtices 
UNITED  STATES 

USmaelaS  < 
usarelas  < 
usyoelas  < 
usulelas  ■ 

USFCELAS  . 

USLPElAS  - 
USDPELAS  < 

USFPElAS  - 
USQFElAS  « 

USQIEuAS  . 

usodelas  < 

USSkElAS  * 

USPEElAS  * 

USPDELAS  • 

USINTERC  « 

RE  ST-OF®RURLD 

RmQSElAS  « 
r«olel AS  - 
RrDPElAS  • 

RhQDElAS  ■ 

Rrpeelas  * 
world  market  clearing 
WDPfeEL AS  * 

* 

************************************************************************ 

CENU 

USE  MOD  USGQLS  4— n 

print  all  comment «  “'Print  the  model  USGOL  including  all  comments 

QUITS 

LKORU  ALLS 
USEMQD  RmGOLS 
MUUEOI T  I 

PRINT  ALL  COMMENTS 
QUITS 

LKOHD  alls 
USEmQU  wOGOLS 
MOOED  ITS 

PRINT  ALL  COMMENTS 
QUITS 

LKORD  alls 
LINkEDIT  lkgoli  4— 

PRINT  ALLS 
LKLINKI  Z__ 

OU  ITS 

DO  OPRTMAT(USMAELAS*USMAROWE'L*USMAC0LE'L»0*O 
DO  OPR THAT (USARfcLAS»USARRuwE ‘LtUSARCOLE ' L,0,0 
DO  OPRTMAT (USYDELAS»USYDRUwE 'L»USYDCOLE 'L.O,0 
DO  OPR THAT (USOLELAS.USOLROWE 'LtUSOLCOLE ' L  1 0 , 0 
DOCORE  OPRTmAT  (USFCELAS *USFCROWE  'LtiJSFCCOLE  'L 
DO  OPRTMAT ( USLPELAS * USLPROWE 'L*USLPCOLE 'L*0,0 
DO  OPRTMAT (uSDPELAS fUSDPROKE 'LtUSDPCOLE 'L,0,0 
DOCORE  UPKTMAT ( USFPELAS.USFCRQWE ' L.USFPCOLE 'L 
DO  OPhTmAT (uSQFELASfUSQFRQwE ' L *  USOFCOLE 'L 

DO  OPRTMAT (uSQ1ELAS*USQIRUmE'L*USQICOlE'L*0,0 
DOCURE  OPRTMAT (USQUE LAS* USQUROmE ' L  *  USODCOLE 'L 
DO  OPRTMAT (USSK EL AS* USSKROmE 'L*USSKCOLE ’L.0,0 
DO  OPRTMAT (uSPEELAS tUSSKROWE 'LtUSPECOLE 'L*0,0 
DO  OPRTMAT (USPDELAS*USQURUmE 'L*USPDCOLE 'L*0,0 
DOCORE  UPRTmAT (US INTER C*USODRURE ' L*USERRCUL ' L 


Print  the  block  structure  of  USGOL  (for  solution) 


Quit  the  MODEDIT  mode 


,4-  Print  the  linkage  system  for  GOL 

Print  the  matrices  displaying  constants 
and  parameters  in  GOL  | 


DU 

DO 

00 

DO 

DO 

00 


OPRTMAT (RWQSELaS*WUROwE 'LtRwQSCOLE ' L » 0 ♦ 0 * -28 * RwQST I TL ' L *  1 )  I 


-28 

*26 

-26 


* USmAT IT L ' L  » 1 ) I 
♦  USART I TL  5  L  *  1 ) I 
♦USYDTITL'L*!) S 
*22*US0LTITL,L»1) » 
0,0.-19*USFCTITL'L*l>  » 
•28  »USLPT I TL ' L  *  1 ) I 
-28  tUSDPTITL 'L*l ) I 
0.0*-19*USFPTITL'L*l) S 
0,0, -26  , USQF TITL'L.l) I 
•26,US0ITITL'Lf 1 ) I 
0,0, -28  tUSQDTITL *L,1) I 
-26,USSKTITL 'L, 1 ) I 
•28,USPETITL'Lf 1)  I 
-28,uSPDTITL'L»1) S 
0,  0,-28. USINTEKT 'L,l )  • 


22,R**0lTITl'L,1)  « 
28,R-DPTITl'L»1) S 


OPRTMAT (rwOLELAS.RmOLRQWE ' L .RWULCOLE ' L , 0 , 0 
OPRTMAT (RMOPE LAS, RwOPRQwE 'L.RWDPCOLE 'L,0,0 
OPRTMAT (RHODE LAS, RDRQWE ' L, R WQOCOLt  * L , 0 , 0 , -28 , R wQUT I T L ' L • 1 ) I 
OPRTMAT (RHPEELAS.wDROwE ' L» RWPECOLE  * L , 0 ,0 , -28 , R*PE T I TL  '  L » 1 > » 
OPRTMAT ( -DPEELAS.nDROhE 'LfHOPECOLE 'L»0, 0.-28, HOPE T  I  Tl'L.1 ) I 


OPR  T  CONST  ALPHCONST 


all,  GOLs^-print  constants  in  alphabetic  order 
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I-B.A.c.  USGOLPTD  -  Print  Data  for  a  Country  Model 


This  program  prints  all  of  the  data  files  associated  with  a  country 
model.  Note  that  the  PRTDATA  command  illustrates  TROLL's  ability  to  use 
**'s  to  represent  all  letter  combinations  in  a  symbol. 


OUTOPT  RMARG  132  PPTPIELD  14  TABWIDTH  7  I 
&PR INT 

*************************************** ************************** ******* 
* 

USGOLPTD  -  PRINT  ALL  DATA  ASSOCIATED  WITH  USGOL 

* 

************************************************************************ 

£END 

DPRTDATA  ALPHA  US****I 


I-B.4.d.  USGOLPTF  -  Print  a  List  of  Files  for  a  Country  Model 

A  TROLL  file  is  a  unit  that  holds  many  types  of  information;  models, 
data,  etc.  specific  to  a  TROLL  model.  TROLL  manuals  can  be  consulted  for 
details.  This  program  lists  the  names  of  the  specific  files  existing  in 
a  large  TROLL  file. 


listf  ALL? 


CONST.  GOL 

RwGCL 

USGOL 

WDGCL 

DATA.  0ATAMT2 
HR WMOWH 

HuseccG 

HUSH0BF1 

HUS*CBF2 

HUSM0BF3 
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I~B.4.e.  USGOLPTR  -  Print  a  Cross-Reference  Variable  List  and  the  Block 
Structure  for  a  Country  Model 

For  any  model,  TROLL  can  print  a  list  which  gives  the  number  of  every 
equation  using  an  endogenous  variable.  The  program  below  prints  cross 
reference  lists  for  types  of  variables  in  a  standard  country  model.  In 
addition,  TROLL  can  print  out  the  block  structure  and  normalization  used 
for  model  solution.  This  command  will  work  only  when  the  number  of 
equations  equals  the  number  of  endogenous  and  definitional  variables  in 
the  model  and  therefore  serves  as  a  test  of  the  logical  completeness  of  a 
model . 


DUTDPT  RMARS  132  FPTFJELD  14  TAM*IDTH  7  « 

6PR 1NT 

*******************  **********************************************  ******* 
* 

USGOLPTR  -  PRINT  A  CROSS  REFERENCE  VARIABLE  LIST  AND  A  MODEL  BLOCK  ORDER 

* 

************************************************************************ 


&END 

uSEmod  USGOli  PNHnL  a  cross  reference 

SYMTAB  DEFINITION  ENDOGENOUS  EXOGENOUS  Ifl.  cross  reieireiiue 

lkxref  endogenous  »  [group  of  variables 

LKXREP  DEFINITION  6 

lkqrd  all 6  Print  the  block  order  of  the  model  for  solution 


list  for  each 


X-B.5.  Programs  for  Model  Simulation 

l~B.5.a.  Program  for  Simulation  of  a  Country  Model  -  USGOLSIM 

This  program  simulates  a  country  model  for  15  years.  It  illustrates 
one  sequence  of  simulation  commands.  Since  the  program  is  run  as  a  TROLL 
"MACRO"  program,  any  error  would  normally  cause  execution  to  stop. 

However  in  this  program,  certain  errors  may  occur  and  the  program  will 
continue  executing  because  the  macro  "abort”  feature  has  been  turned  off 
in  parts  of  the  program. 

To  minimize  computation  costs,  this  program  may  be  modified.  On  a 
first  run,  TROLL  prepares  a  dataset  (DSET)  with  the  same  name  as  the 
model.  This  is  a  fairly  expensive  operation  and  need  be  done  only  once 
if  the  structure  of  the  symbolic  model  is  not  to  be  changed.  This  code 
is  saved  by  executing  a  FILEMOD  statement.  When  the  code  is  filed,  this 
dataset  should  not  be  deleted.  Also,  simulation  runs  are  less  expensive 
if  iteration  output  is  not  listed.  However,  if  problems  occur  during 
simulation,  TROLL  has  extensive  diagnostic  capabilities  in  terms  of  lists 
of  iteration  output.  Consult  the  TROLL  manuals  for  details  on  simulation 
features . 
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OUTOPT  RMARG  132  FPTFIELU  14  TABWIDTH  7  I 
£PR I  NT 

*************************************************** ********************* 


USGOLS I M  -  SIMULATE  USGOL  USING  A  GAUSS-SEIDEL  SOLUTION  ROUTINE, 
MATRICES  GIVE  INFORMATION  ON  THE  CURRENT  SIMULATION  MODEL  -  USGOL. 
USMAELAS  -  MARGIN  ELASTICITIES 
USARELAS  -  CROP  AREA  ELASTICITIES 
USYDELAS  -  CROP  YIELD  ELASTICITIES 
USOLELAS  -  OILSEED  PARAMETERS  AnD  ELASTICITIES 
USFCELAS  -  FEED  COST  PARAMETERS 

USLPELAS  -  LIVESTOCK  AND  LIVESTOCK  PRODUCT  ELASTICITIES 

USDPELAS  -  DAIRY  PRODUCT  ELASTICITIES 

USFPELAS  -  FEED  DEMAND  PARAMETERS 

USOFELAS  -  FEED  DEMAND  ELASTICITIES 

USOIElAS  -  INDUSTRIAL  DEMAND  ELASTICITIES 

USODELAS  -  FOOD  AND  NON-FEED  DEMAND  ELASTICITIES 

USSKELAS  -  STOCK  ELASTICITIES 

USPEELAS  -  PRICE  ESTIMATE  DAMPING  PARAMETERS 

USPDELAS  -  DEMAND  PRICE  ELASTICITIES 

* 

************************************************************************ 


1  I 

L IGNORE 
DSET  USGOL  I  , 
DSET  USBASE  |  *T 
LABOR  T 

START  5  STOP  45 


Set  the  periodicity  to  'annual' 
Delete  the  old  input  and  output  DSETS 

CONCR  0.1  DIVCR  300  GAMMA  10  BETA  C, 


Set 


Choose  the  simulation  technique 


ALL* 


LEND 
PERIOD 
LERROR 
DELETE 
DELETE 
LERROR 
CONOPT 
LKC0NOPT  * 

USFMOD  USGOL  I 
SIMULATE  RELAX* 

LKBINDATA  ALL* 

SIMSTART  1976* 

SIMALG  GAUSS* 

FILEMODl 
LERROR  L1GN0RE 
ITERANGE  40  45  * 

OLIST  ITERATIONS 
I 

DOSIM  151  <: - 

LKVAL  INPROCESS* 

LERROR  LABORT 
FILESIM  USBASE  » 

DO  OPRTMATtUSMAELAStlJSMAROHE  'L»USmACOLE  'L.0.0. 
00  OPRTMATJUSARELAStUSARROwE  »L»USARCDLE  »L»0,0» 
DO  OPRTMAT( USYDELAS »USYDRO*E * L » US YDCOLE  « L » 0 , 0 ♦ 
00  OPRTMAT (USOLELAS tUSOLROME 'L*uSOLCOLf 'L»0,0» 
OOCORE  OPRTMAT(USFCELAS*USFCRUWE  'LtUSFCCOLE  'L» 
DO  OPRTMAT (USLPELAS.USL PRUNE 'LtUSLPCOLE 'L»0,0t 
DO  OPRTMAT( USDPELAS tUSDPROWE  *L»uSOPCOlE 'L.0,0. 
OOCORE  OPRTMAT ( USFPE L AS » USFCBO*E ' L * USFPCOLE ' L. 
DO  OPRTMAT(USOF6LAS»USOFRuNE 'LtUSOFCOLE 'L» 
DO  OPRTMAT (USOIELAStUSOIROWE 'L.USCICOLE 'L»0,0. 
OOCORE  OPRTMAT (USUDEL AS. USODROWE ' L • USODCOLE  * L * 
DO  OPRTMAT ( USSKELAS.USSKRONE 'L.USSKCOLE 'L.0,0. 
DO  OPRTMAT  (USPEELAS.USSNROE  ' L.USPECOLE  'L.0.0. 
DO  OPRTMAT ( USPDELAS .USODR 0*E ’L.uSPDCOLf ‘L.0,0. 


.7*  ^-j 

the  convergence  criteria  and  options 


List  all  iterations  after  the  4oth 


Simulate  the  model 


File  the  out  pit  DSET 


28 

.USMATJTL 'L.l 

)  * 

26 

»  US AR  T I TL  *  L  » 1 

)  1 

26 

.USYDTITL'L.l 

)  ( 

22  , 

>  USOLT I TL ' L ♦ 1 I 

1 

♦  0  , 

> -19 ♦ USFC  T I T L  * 

L. 

1 )  * 

28 

♦USLPTITL'L.l 

)  1 

28 

t  USOpT I TL ' L  *  1 

)  * 

1 0  < 

'■19.USFPTITL ' 

L. 

1)  * 

.0, 

.-26  .USOFTITL 

•L 

.1)* 

26, 

.US0ITITL'L*1) 

1 

•  0, 

.-28  •  USODT I TL 

*1 

,1)  * 

28, 

.USSKTITL'Lfl > 

l 

28, 

-USPETITL'Lfl) 

« 

28, 

.USPDTITL'L.l ) 

* 
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I-B.5.b.  Program  for  Simulation  of  a  Linked  Model  -  LXNKSIM 


In  TROLL  it  is  poss  ible  to  simulate  a  model  with  separate  model 
components  using  TROLL'S  LINKMOD  feature.  In  order  to  exercise 
this  option,  a  "linkedit"  session  creates  a  "linkage"  macro  which 
defines  the  variables  to  be  linked,  the  models  to  be  used,  and  the 
solution  method  to  be  used  for  each  model.  A  sample  linkedit 
session  listed  below  creates  a  linkage  macro  for  models  named 
USGOL,  RWSOL,  and  WDGOL .  A  listing  of  this  linkage  system  is 
given  followed  by  a  program  "LINKSIM"  to  simulate  the  linked 
system. 


U  SOT  DB 
RWQTBF 


RWCTDB  RWQTDC 
USOSBF 


OUTCPT  PMAOG  132  FPT  FIELD  14  TABWIDTH  7  ; 

linkedit  lkgol; 

VARS  WDPTBF  WDPTPK  KDPTML  WPPTPM  WDPTPE  V 
WDPTWH  WDPTCN  WOPTCG  W0PTR1  WOPTSB  WDPTUS 

WDPTSM  WDPTSO  WDPTOM  WDPTCO 

WDPTDB  WOPTDO  WDPTDC 

USOTBF  USQTPK  USUTVL  USQTPM  USQTPE 

USGTWH  USQTCN  USQTCG  USOTRI  USCTSB  USQTOS 

USOT  SM  USQTS3  USQTOM  USQTOO 

USQTOC  USQTDO 

RWQTPK  RWQTML  RWCTPM  RWQTPE 
RWQTWH  RWQTCN  RWQTCG  RWQTRl  RWQTSB  RWQTCS 

RWQTSM  RWQTSQ  RWQTOM  RWQTCO 

RWQTDC 

USOSPK  USQSML  US QS PM  USQSPE 
USQSWH  USQSCN  USQSCG  USQSRI  USCSSB  USQSUS 

USQSSM  USQSSO  USQSOM  USQSOO 

USQSCB  USUSDC  USQSDC 

RWQSBF  RWQSPK  RWQSML  RWQSPM  RWQSPE 

RWQSWH  RWQSCN  RWQSCG  RWOSRI  RWQSSB  RWQSDS 

RWQSSM  RWCSSO  RWQSOM  RWUSOO 

RWQSDB  RWQSDC  RWQSDC 

USQDBF  USQOPK  USCOHL  USCDPM  USQDPE 

USCDWH  USQOCN  USQDCG  USQDRI  USQDSB  USQDGS 

USQDSM  USQDSO  USCDCM  USQDCO 

USOODB  USQODC  USQDDC 

RWQDBF  RWQDPK  RWQDML  RWQDPM  RWQDPE 

RWODWH  RWQDCN  RWQDCG  RWQCRI  RWQDSB  RWQDOS 

RWODSM  RWODSD  RWCDC  M  RWQCOU 

RWQD08  RWQDDC  RWODDO 

USQFWH  USQFCN  USOFCG  USQFSM  USQFOM 

usqcsb  usocns 

USSKBF  USSKPK  USSKML  USSKPM  USSKPE 

USSKWH  USSKCN  USSKCG  USSK.R1  USSKSB  USSKCS 

USSKSM  USSKSO  USSKOM  USSKOC 

USSKDB  USSKDC  USSKDO  ;  4^ 

MODELS  USGOL  METHOD  GAUSS,  RWGOL  METHOD  GAUSS, 

WDGOL  METHOD  GAUSS;  _ _ _ _ — 

OPRINT  all;  — - 

OLKLINK; 

FILE5  f — - File  the  linkage  system 


Declare  the 

variables  to  be  linked. 

Each  must  be  endogenous  to  at 
least  one  model. 


/ 


Declare  the  models  to  be  linked 


Print  the  linkage  system 
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VARS  I  WDPTBF  WOPTP*  WDPTML  WOPTPH  MDPTPE  HOPTHH  WflPTCN  UDPTCG  WOPTRI  MOPTSB  MDPIOS  MOP?SN  MOPTSO  WOPTON  MOPTOO 

HDPTDB  WOPTDO  40PTDC  USQTBF  USQTPK  USQTML  USOTPN  USQTPE  USOTWH  USOTCN  USQTCG  USOTRI  USQfSB  USOTOS  USOISH 
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L INKSI M.DATA 


I  ft- 


Delete  old  model  DSETs 


CERROR  SIGNORE 
DELETE  DSET  LKU SBA SE 
DELETE  DSET  LKRWBASE i 
DELETE  DSET  LKWDBASE; 

QUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7  ; 

period1  i^°NST  G°L’  Select  convergence  options  for  model  variables 

CONOPT  START  9  STOP  30  CONCR  0.4  Di  VCR  100  GAMMA  10  ; 

LKCONOPT ; 

LINKSIH  LKGOL; 

LINKCPT  START  9  STOP  30  CONCR  0.35  DIVCR  100  STOPCONV  ; 

LKOPT  * 

lkdsets  ;  Select  convergence  option  for  linked  variables 

S1MSTART  1976  ; 

ENDOGENOUS;^ 


□LIST  WDGOL  ITERATION, 
OUST  RWGOL  ITERATION, 
OLiST  USGOL  ITERATION, 
ITERANGE  WDGOL  27; 
ITERANGE  RWGOL  27; 
ITERANGE  USGOL  27;  4 — 
DOTIL  1990; 

LKVAL  USGOL 
LKVAL  RWGOL 
LKVAL  WDGOL 
LKVAL  WDGOL 


ENDOGENOUS ; 
ENDOGENOUS! 


List  solution  iterations 


inprocess; 

INPROCESS; 

inprocess; 

iteration. 


-Simulate  the  linked  model 


the  output  DSETs 


wdptdo  wdp too ( “l ) ; 

RENAME  DSET  OUTPUT.USGOL  LKUSBASE  ;  -o-rmanpnt  1  v  file 

RENAME  DSET  OUTPUT.RWGGL  LKRWBASE;  -  &nd  le 

RENAME  DSET  QUTPUT.WDGOL  LKWDBASE; 

CHMODE  PERM  DSET  ****BASE;  4™ 

OPRTDSET  VALUE  ER  PCER  ,  VARIABLES 
WDPTBF  WDPTPK  WDPTML  WDPTPM  WDPTPE 

WDPTWH  WDPTCN  WDPTCG  WDPTRI  WDPTSB  WDPTOS 

WDPTSM  WDP TSO  WDPTCM  WDPTOO 

WDPTDB  WDP  T DC  WDPTDO  , 

RANGE  1976  TO  1990, 

DSETS  GOL  WDBASE  LKWDBASE  GOLBASE; 

OPRTDSET  VALUE  ER  PCER,  VARIABLES 
USQTBF  USOTPK  USQTML  USQTPM  USQTPE 

USQTWH  USQTCN  USQTCG  USQTRI  USOTSB  USQTOS 

USQT5M  USQTSO  USQTOM  USOTOO 

USQTDB  USQTDC  USQTDO  , 

RANGE  1976  TO  1990, 

DSETS  GOL  USBASE  LKUSBASE  GOLBASE; 

OPRTDSET  VALUE  ER  PCER,  VARIABLES 
RWQTWH  RWQTCN  RWQTCG  RWOTRI  RW0TS8  RWQTOS 

RWQTSM  RWQTSO  R  WQTOM  RWQTCO 

RWQTDB  RWQTDC  RWQTDO 

RWPIBF  RWPIPK  RWPIML  RWPIPM  RWPIPE 

RWPIWH  RWPICN  RWPICG  RWP1RI  RWPISB  RWPIOS 

RWPISM  RWPISC  RWPIOM  RWPIOO 

RWPIDB  RWPIDC  RWPIOO, 

RANGE  1976  TO  1990, 

DSETS  GOL  RWBASE  LKRWBASE  GOLBASE;  <-~-J 

DSET>S 


L1STF 


Print  values  of  selected  output  variables 
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I-B.6.  Programs  for  Model  Validation 

Model  validation  is  an  important  step  in  the  preparation  of  a  model 
for  actual  use.  The  standard  country  model  can  be  validated  provided 
historical  data  is  available  in  data  files.  Two  TROLL  programs  aid  in 
the  validation  effort. 
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I-B.6.a.  USGOLPTE  -  Print  Summary  Matrices  of  Model  Validation  Statistics 

This  program  prints  matrices  of  statistics  allowing  a  quick 
comparison  of  a  simulation  run  to  a  historical  data  set.  Comparisons  are 
made  only  for  the  endogenous  variables.  The  matrices  present  the  mean 
and  absolute  mean  of  the  error  and  percentage  errors  which  result  from 
comparing  a  base  run  to  historical  data. 

The  program  is  followed  by  a  partial  listing  of  the  program  which  can 
create  these  display  matrices. 


OUTOPT  P^RG  132  PPTFIELD  14  TABwJOTh  7  I 
tPR INT 


* 

USGOLPTE  -  PRINT  THE  Summary  MATRICES  FOR  A  VALIDATION  RUN  OF  USGOL. 

THE  MATRICES  AREl 

U$ERRMA  -  MEAN  ABSOLUTE  ERROR  OF  VALIDATION  RUN, 

USERRmN  -  MEAN  OF  ERROR  OF  VALIDATION  RUN, 

U  S  P  E  R  *  A  -  HE  An  ABSOLUTE  PERCENT  ERROR  OF  VALIDATION  Run, 

(JSPERmn  -  mean  OF  PERCENT  ERROR  OF  VALIDATION  Run, 

* 

************************************************************************ 

* 

-  PRINT  MATRICES  SUMMARIZING  THE  CURRENT  PARAMETERIZATION  OF  GOL. 

THESE  MATRICES  DISPLAY  all  of  the  ELASTICITIES*  COEFFICIENTS*  and 
PARAMETERS  which  ape  EMBEDDED  In  THE  MODEL  EQUATIONS.  THE  MATRICES* 
USMAELAS  -  margin  ELASTICITIES 
USARELAS  -  CROP  AREA  ELASTICITIES 
USYDELAS  -  CROP  YIELD  ELASTICITIES 
USOLfLAS  -  OILSEED  PARAmETEPS  AND  ELASTICITIES 
USECELAS  -  FEED  COST  PARAMETERS 

USLPELAS  -  LIVESTOCK  AND  LIVESTOCK  PRODUCT  ELASTICITIES 
USDPELAS  -  DAIRY  PRODUCT  ELASTICITIES 
USFPELAS  -  FEED  DEmano  PARAMETERS 
USOEELAS  -  FEED  DEMAND  ELASTICITIES 
USOIELAS  -  INDUSTRIAL  DEMAND  ELASTICITIES 
USODELAS  -  E ODD  AnD  NOn-EEED  OEmAND  ELASTICITIES 
USSKELAS  -  STOCK  ELASTICITIES 
USPEELAS  -  PRICE  ESTIMATE  Damping  PARAMETERS 
uspoflas  -  demand  price  elasticities 
* 


lend 

delete  DATA  US****_USAASE_ER I 
DELETE  DATA  OS****_USBASE„PCERI 

period  II 


CROAT  A  ER  PCER*  VARIABLES  ENDOGENOUS*  RANGE  1976  TO  I960*  DSETS  USGOL  USBASE 
DDRANGE I 

OOCORE  uSERPMfl  ■  CR-matI  19*  16*  NA )  I 
DOCDRE  USERRMN  ■  C«mAT(  19*  16*  NA  )  I 
DOCORE  USPERMA»CRmAT( 19*16*NA)  » 

OOCORE  USPFRMn«CRmAT( 19*16*NA ) | 

DOCORE  uSEPRMA*matreP(USERRmA,mEAN(aBSv(USArwh.iiSBASE_ER ) )♦  7.  1)1 
DOCORE  USERRma*mATREP(USERRmA,mean<ABSV(USARCn_US8ASeIer) )*  8,  1)| 

DOCORE  USERRMA«mATREP(OSEPRMA,MEAn( APSV(uSA«CG.uSbASEIeR ) ) *  9.  1)| 


I 
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DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCOkE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

OOCQRE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 


uSRER*\»MATRER(USPERf'N«*EAN(  uStTOO.USSASE.PCER  )  * 
USPFRmn»*atREP(uSPERmn,meaMuSoICnIuShASeIpCFR). 
USPEP^«,.ATREP(USPERMN,MfAf,  (uSPTbF^USBASeIpCFR)* 
USPFRmnbmATREPIuSPERhMmeaMuSPTPK^uSBASeIpCER). 
USPERhnb-ATREP(USPERhn,h£AMuSPTml”uSBASeIpCER>* 
uSPERMn«mATREP(USPERhn.m6An  (  uSPTL’m'uSBASeIpCER  )  ♦ 
USPERyN*MATREP(uSP6RMN»|-£Arj(uSPTP^>>uSbAS£-PCER  )  * 
USPER*N«*ATREP  (USPERfN»^fcA,\(iJSPTPE“iJSbAStIPCER  ) » 
uSPER*n«mATR£P(uSPERmn,meam  uSPT«m"uSBASE_PCER  )  * 
u$per*n»patrep(  uSPERmn,  wE  am  uSptc^IushaseIpceR  )  « 
USPER*n«mATREP<USPER"M*«EAM  uSPTCC^OSBAScIpCER  )  • 
uSPERHN«KATREP(USPER^A,MtAN‘(uSPTR  l"uSbAS£lPCER  > » 
USPER^n-mATREP (USPER^N»^EAN(USPTSB-USBASE.PCER  )  » 
USPEP*N»MATREP(USPER-'^»*EAMoSPT0SluS&ASfe"pCER  )  • 
USPPRm^,wATRFP(USP£R^N*mEAn(uSE’TSm_iiSBASE.PCER  )  t 
USPFRhn.mATREP(USPERmn,meaM  uSPT SO_USb A SE.PCER  )  * 
uSPFRbNSMATRtPfuSPERwNtMEAMuSPTO^.USBASfc'PCER  )  * 
USPERhn»hATREP(uSP£Rmn,meaM uSPTOO.USBASE.PCER  )  ♦ 
USPER mm»m A TREP (USPERmn, mean (USPT0B_US6 A SE.PCfK  ) » 
USPF-Rmn»mATREP(USPERmn,mEAn(uSPTDCIuS8ASE.,PCER)» 
USPERRN«mATR EP ( USPER^n  «be AM  USPTPO.USBASE.PCER  ) » 


19,14) » 


8 

,15)1 

1 

•  16)1 

2 

,16)1 

3 

•  16)« 

4 

•  16)1 

5 

•  16)1 

6 

•  16)1 

7 

•  16)1 

8 

*16)  1 

9 

.16)1 

10 

•  16)1 

11 

•  16)1 

12 

•  16)1 

13 

•  16)1 

14 

♦  16)1 

15 

♦  16)1 

16 

.16)1 

17 

♦  16)1 

18 

•  16)1 

19 

•  16)1 

DO  USPERHnmUSPERMNI 

DOCORE  PRINT (MEAN ( ABSV( USAR T T.USBASE.ER ) ) ) I 

DOCORE  PRINT(MfcAN{USAKTT_USBASE_ER ) ) I 

DOCORE  PRINT(«EAN( ABSV(USARTT.USBASE.PCER ) ) ) I 

DOCORE  PRINT(bEan(USARTT.USBASE_PCER))I 

DO  OPR  That (uSERRRA.USODROwE * L, USEKRCOL ' L ♦ 0 , 0 • -28 ♦ USE AT  I TL ' L » 1 ) » 


DO  OPR THAT (USERRMn,uSQORO*E ' LtUSERRCOL 'L*0*0,-28*uSENTITL'L.l )  I 
DO  OPRThaT (USPERHAtuSyDRGwE ' L , USER R COL ' L ♦ 0 , 0 , -28 , OSP A T I TL  '  L ♦ 1  )  I 
DO  OPRTHAT  ( USPERMN,  uSQDROp-E  'L.USERRCOL'L » 0,0, -28,  USPNT  I  TL'Lfl )  » 

DO  OPRTHAT  (USHAEL  AS,  USHARO-E  '  L.UShACOLE  '1,0*  0,-28  *US*’ AT  I  TL  '  L,1  )  I 
DO  OPRTHAT (US AREL AS, USARROwE 'L.USARCOuE 'L,0, 0,-26  , US AR T I TL ' L , 1  )  » 

DO  OPRTHAT(USYDELAS,USyORuHE'L,uSVDCOLE'L,0,0,-26  , US VDT I TL ' L ,  1 )  I 
DO  OPRThaT(  USOLE LAS, USOLROhE  'L,USOLCOLE  'L,0, 0,-22, USOLTITL  ’L,tl )  I 
DOCORE  OPRTHAT  (USFCEL AS, USPCROHE  '  L  » USFCCOIE  '  L •  0 , 0 ♦ -19 , USKT ITL  '  L«  1  >  I 
DO  OPRTHAT (USLPEL AS ,USLPR0WE ' L , uSLPCOl E ' L , 0 , 0 , -2fi  , USLPT I TL ' L ,  1 )  I 
DO  OPRTHAT (uSOPE LAS, USDPROhE ' L * USUPCOlE ' L * 0 » 0* -28  ,uSOPTI TL 1 L ,1  )  I 
DOCORE  OPRTHAT (USFPELAS,USFCROhE 'LtUSFPCOLE 'L»0,0,-19,USFPT I TL'L,1 ) I 
DO  OPRTHAT (USOF EL AS, USOF ROHE ' L ♦ USOFCOLE ' L ♦ 0 , 0 , - 26  , USOF T I TL • L , 1 ) I 

00  OPRThaT ( USD  I ELAS, USQ I RU*E ' LtUSOICOLE ' L , 0 , 0 , -26 , USO I T I TL ' L»1 )  » 
DOCORE  OPRTHAT (USOOEL AS, USOOROwE ' L.USODCOLE ' L»0,0, -26  ,USCDT I TL ' L, 1 ) » 
DO  OPRTHAT (USSK EL AS, USSKROhE 'LtUSS^CniE • L , 0 , 0 , -28 , USS*T I TL ' L ♦ 1 ) I 
DO  OPRTHAT <USPEELAS*USSKROWE' l tuSPECOLE ' L • 0,0 » -28 , USPET I TL ' L ♦ 1 >  • 

DO  OPRTHAT (USP DEL AS, OSODROhE ' L » USP DCOLE ' L , 0 , 0 , -28 , USPDT I TL ' L • 1 > I 


OUTOPT  RHARG  132  FPTFIELD  14  TABwJDTH  7  I 
tPR INT 


USG0LCSM  CREATE  Summary  MATRICES  FOR  MEAN  ABSOLUTE  AND  ADDITIVE  ERRS, 

OF  A  MODEL  VALIDATION  OF  USGOL.  THE  MATRICES  AR E I 

USERRhA  -  MEAN  ABSOLUTE  ERROR  OF  VALIDATION  RUN, 

USERRmN  -  MEAN  OF  ERROR  OF  VALIDATION  RUN, 

USPERmA  •  MEAN  ABSOLUTE  PERCENT  ERROR  OF  VALIDATION  RUN-, 

LSPERHN  -  HE  AN  OF  PERCENT  ERROR  OF  VALIDATION  RUN, 

* 

CREATF  MATRICES  TO  SUMMARIZE  THE  DIFFERENCES  BETWEEN  A  BASELINE 
RUN  OF  USGOL  (USBASE)  AND  AN  ALTERNATE  RUN  (USPROJ),  THE  MATRICES* 

USPROJER  -  MEAN  DIFFERENCE  BETWEEN  VALUES  OF  USPROJ  AND  DSFASE. 
USPROJPR  •  MEAN  PERCENTAGE  DIFFERENCE  BETWEEN  VALUES  OF  USPROJ  AND 
USBASE, 


tEND 

DELETE  DATA  USERRhAi 

DO  USERRHA  •  CRmAT (  19,  16,  NA )  I 

DELETE  DATA  USERRmni 

DO  USERRHN  ■  CRMAT(  19,  16,  NA)| 

DELETE  DATA  USPt«HAi 

DO  USP6Rha»CRmAT( 19,16»NA ) I 

DELETE  DATA  USPERmni 

DO  USPERhn«cRhAT(19,16,na) I 
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OELETE  GENERAL  LABEL. USE AT  I TL I 
LEDIT  USEAT1TLI 

ADD  TOP »  mean  ABSOLUTE  ERROR  •  UNITED  STATES! 

FILE  I 

DELETE  GENERAL  L A  BE L.USEnt I TL I 
LEDIT  USENTITL! 

ADD  TOP*  MEAN  OF  ERROR  -  UNITED  STATES! 

FILE  I 

DELETE  GENERAL  LABEL.USPAT I TL ! 

LEDIT  L'SPATITLI 

ADD  TOP*  AVERAGE  ABSOLUTE  PERCENTAGE  ERROR  -  UNITED  STATFS! 

FILE  I 

DELETE  GENERAL  LABEL. USPNT ITL I 
LEDIT  USPNTITLI 

ADD  TOP*  MEAN  OF  PERCENTAGE  ERROR  -  UNITED  STATES! 

FILE  ! 

DO  OPRTMAT  <  USERRMA*uSQDRn*.E  '  L  » USE  R  R  COL  '  L  ♦  0  ♦  0  * -28  t  USE  AT  I  TL  »L*  1  )  » 

DO  OPRTmaT  (  l  SE  R  R  mn  « USODROt*  E  'L. USERRCOL  'L*C*0*-28«USFNTITL*L*li» 

DO  OPRTMAT (USPERM A. uSODRO-E • L » USERR COL • L ♦ 0 . O* -28 » uSP AT  I TL ' L « 1 >  I 

DO  OPRTMAT (USP ERMm.uSODROwE 'L*uSERRC0L(L*O*0*-26*uSPNTITL'L»1)1 

DELETE  DATA  L'SPROJER  I 

00  USPR0JER»CRmaT(19*21*na)  l 

DELETE  DATA  USPROjPRt 

DO  USPROJPR-CRMAT ( 19*21»NA  )  i 

DELETE  GENERAL  L AbE L.USPR OCOL I 

LEDIT  USPROCOL* 

ADD  TOP* 

AREA  (1000  HECTARES)* 

YIELD  (METRIC  TUNS  /  HECTARE)* 

LIVESTOCK  NUMBERS  (1000). 

LIVESTOCK  ADDITIONS  (1000). 

LIVESTOCK  SLAUGHTER  (1000), 

QUANTITY  SUPPLIED  (1000  METRIC  TONS)* 

SUPPLY  PRICE  (USA  /  METRIC  TON), 

FEED  COST  (USA  /  METRIC  TOM* 

quantity  fed  (looo  metric  tons)* 
quantity  CRUSHED  (1000  METRIC  TUNS)* 

QUANTITY  DEMANDED  (1000  METRIC  TON'S)* 

DEMAND  PRICE  (US*  /  METRIC  TOM* 

ENDING  STOCKS  (1000  METRIC  TONS)* 

DOMESTIC  MARGIN  (US*  /  METRIC  TUn  )  * 

TRADE  MARGIN  (US*  /  METRIC  TON)* 

OUANTITY  TRADED  (1000  METRIC  TONS), 

PRODUCER  REVENUE  (1000  US*)* 

CONSUMPTION  EXPENDITURE  (1000  US*). 

trade  value  (iooo  us*)* 

RATIO  OF  TRADE  TO  DOMESTIC  CONSUMPTION  (X). 

RATIO  OF  TRAOE  TO  DOMESTIC  PRODUCTION  (X)l 
FILE! 

DELETE  GENERAL  L ABEL.USPRO JFT i 
LEO  1 T  USPROJETI 

ADD  TOP*  MEAN  DIFFERENCE  BETWEEN  PR  u  J  *  AND  BASE  VALUES  »  UNITED  STATES* 

MEAN  OF  (PROJECTION  VALUES  -  BASELINE  VALUES)  I 
FILE! 

DELETE  GENERAL  LABEL. USPRO JPT « 

LEDIT  USPRO JPT I 

ADO  TOP.  MEAN  X  DIFF,  BETWEEN  PROJ,  AND  BASE  VALUES  -  UNITED  STATES, 

MEAN  OF  (X  DIFFERENCE  BETWEEN  PROJECTION  AND  BASELINE  VALUES)  I 

FILE! 

DO  OPRTMAT ( USPRO JER * USOOROWE 'L* USPROCOL 'L *0.0. -28, USPRO JET  *  L* 1 ) » 

DO  OPRTMAT ( USPR OJPR .USODR OWE • l.uSPR OCDL 'L,0,0»»28.USPR0JPT*L*1 ) I 
DELETE  GENERAL  LABEL. USERRCOL I 
LEDIT  USERRCOL  I 

ADD  TOP.  AREA  (AR).  YIELD  (YD),  LIVESTOCK  NUMBERS  (LN), 

LIVESTOCK  ADDITIONS  (LA),  LIVESTOCK  SLAUGHTER  (LS),  OUANTITY  SUPPLIED  (OS). 
PRICE  (DEMAND)  (PD).  QUANTITY  FED  (OF).  QUANTITY  CRUSHED  (OO* 

OUANTITY  DEMANDED  ( UO )  *  STOCKS  ( S«  )  ,  MARGIN  (DOMESTIC)  (MQ). 

MARGIN  (TRADE)  (MT),  QUANTITY  TRADED  (OT). 

quantity  industrial  oemand  (Qi).  price  (trade  <pt)  i 

FILE  I 
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I-B.6.b.  Print  Validation  Statistics  Using  the  OPRTDSET  Commands 


The  OPRTDSET  command  can  compare  data  in  data  sets, 
comparing  a  simulation  output  data  set  with  a  historical 
validation  statistics  can  be  produced.  The  STATS  option 
used  to  produce  the  validation  statistics. 


By 

data  set, 
must  be 


OPRTDSET  VALUE  ER  PCER  ST^TS, 

VARIABLES  RWQT BE  RWGTPK  RWGTKL  RWCTPM  RWQTPE 

RWCTWH  RWQTCN  RWQTCG  RWQTRI  RWQT  SB  RWQTOS 

RWQTSM  RWQT  SO  RWQTOM  RWQTOO 

RWQTDB  RWQTDC  RWQTDQ 

RWPIBF  RWPIPK  RWPIPL  RWPIPM  RwPIPE 

RWPTWH  RWPICN  RW P IC G  JRWP I R I  RWPISB  RWPIOS 

RWPISM  RWP1SO  RWP I C M  RwPIOO 

RuPIDB  RWP I  DC  RWPIDC, 

RANGE  1976  TO  1981,  DSETS  RWGOL  RW8ASE; 


SIMULATION  OUTPUT  riY  VARIABLE 
K  »  ^  T  C  N  -  1 1 < D 0 G E n Oil S 


1  =  =  =  =  =  =  =  =  =  =  = 

SSSSiSS 

============== ; 

================;= 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  1 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  J 

1 

R-IEST  1 

RhriASt 

1 

KMbASE^EK  l 

RWBASE*PLER  l 

1  =  =  =  =  =  =  =  =  =  =  = 

rsssjss 

==============! 

============ 

sass  i  s 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  1 

=  =  =  =  =  =  =  =  =  =  =  =  ====  J 

J  197a 

t 

-92707.1  1 

-42707.2 

1 

-0.0625  I 

0.GQ014O  1 

J  1977 

; 

-49339.2  l 

-55551.6 

1 

-6212.44  J 

12.5913  1 

l  1976 

i 

-54(j9o  .  1  J 

-62702.5 

1 

-8006.49  l 

15.9095  1 

1  1979 

i 

•6 1607.9  | 

-72383.3 

1 

-10515.4  I 

17.C13  1 

l  1  V  on 

i 

-04797.9  J 

-84335.1 

i 

-19537.2  J 

30.151  .  1 

II 

II 

H 

II 

II 

M 

II 

is 

ii 

n 

it 

II 

II 

II 

19 

II 

II 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  J 

============ 

=  =  =  = ; C===3=S=X=====S= 1 

================ ; 

SUMMARY  STATISTICS 


Jsstssssssssssss 

1 

}  Mt  AN 

1  RMS 

;  STil.PEv' 


=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  1 =  = 
K* TEST  1 

================ i== 

-S4549.0  1 

55142.0  i 

9010.16  1 

=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  J  =  = 


============= , ================ 

R«BASE  1  KWBASE^ER 

=  =  =  =  =  =  =  =  =  =  =  =  =  1 =  =  =  =  =  =  =  =  =  =  =  =  =  =  3  = 

63523.9  1  -6974.3 

65041.5  1  10999.4 

15875.3  1  7110.72 

============= ; ================ 


=  =  =  =  =  =  =-=  =  =  =  =  =  =  =  = 
RwbASE+PCEH 
================ 

15.133 
17.9053 
1C. 7635 

================ 


I-B.7.  Programs  for  Summarizing  the  Impact  of  Alternative  Projections 

An  acceptable  standard  model  will  be  adjusted  and  modified  to  produce 
a  "best  effort"  baseline  projection.  Then  alternative  scenarios  with 
altered  policies  will  be  run.  A  major  aim  of  this  type  of  model  is  to 
quickly  examine  the  differences  between  those  alternative  projections  and 
an  acceptable  baseline.  The  TROLL  programs  presented  below  allow  a  quick 
comparsion  of  an  alternative  projection  with  a  base  projection. 
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I-B.7.a.  OPRTDSET  -  Print  Information  Comparing  Output  Data  Sets 

The  TROLL  OPRTDSET  command  can  be  used  to  print  differences  (and 
summary  statistics  of  those  differences)  between  alternative  output  data 
sets.  An  example  of  the  use  of  this  command  is  shown  below. 


OUTOPT  R"ARG  132  FPTFIELO  14  TAB*IDTH  7  I 
OPRTDSET  VALUE  ER  PCER  *  VARIABLES 
WDPTML  wdptpr  WDPTPE 
teDPTOG  wuPTRI  "DPTSB  wDPTOS 
WDPTU*  WDPTOQ 
hDPTDO  » 

1990f  DSETS  WDGUL  RDBASE  G0L8ASEJ 


wDPTBP  wuPTPK 
kUPTwH  «UPTCN 
*DPTS*  k»DP1SU 
kDPTUB  taUPTDC 
RANGE  1976  TO 


OPRTDSET  VALUE 
USUTBF  USOTPK 
USUTnw  USOTCn 
U S C T S M  USUTSU 
USUTUB  USUTDC 
RANGE  1976  TO 


feR  PCER  «  VARIABLES 
USUTml  USQTP*  usotpe 
USQTCG  US0TR1  USUTSB  USQTOS 
USQTOM  USOTOO 
USUTOO  ♦ 

1990  ♦  DSETS  USGOL  USBASE 


GOLBASE  I 
RWOTUS 


OPRTDSET  VALUE  ER  PCE«*  VARIABLES 
RwOTwh  K^OTCn  RWOTCG  RwOTRI  RwOTSb 

rrgtso  rwoto^  rwotuO 

R  »»uT  DC  RROTDO 

RRPIPK  R*PI*L  RWPIPW  RhPIPE 
RV.PICN  Rv»P  I  CG  RWPIRI  RwP 1  SB  RwPIOS 
RwPISO  RwPIO*  RWPIQO 
RwP  I  DC  RV.PIDU* 

1976  TO  199ot  DSETS  RwGUL  RwBaSE  GOlBASE  I 


R*OTS* 
RwOTDB 
RteP  1  BF 
RfcPJRH 
R R P I  SR 
RwP 1  Ob 

range 


LISTF  DSE  T  >  l 
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I-B.7.b.  USGOLPPJ  -  Print  Matrices  Summarizing  the  Difference 
Between  an  Alternative  Projection  and  a  Baseline 

This  program  calculates  a  limited  set  of  "difference"  statistics  and 
arranges  them  in  an  easily  readable  matrix  form  which  is  derived  from  the 
model  structure.  It  complements  a  printout  of  more  detailed  information 
on  differences  between  alternative  projections  and  a  baseline  which  can 
be  obtained  using  TROLL  OPRTDSET  commands. 

Note  that  OPRTDSET  commands  are  relatively  cheap  to  use  but  do  not 
put  the  results  in  as  convenient  a  form  as  USGOLPPJ.  Part  of  the  expense 
of  this  program  involves  the  use  of  an  expensive  TROLL  CRDATA  command  to 
create  variables  from  a  DSET. 

A  set  of  TROLL  commands  which  creates  the  "display"  matices  is  listed 
following  by  USGOLPPJ. 


OUTOPT  RMARG  132  FPTFIFLD  14  TABwIDTH  7| 

CPR I  NT 

************************************************************************ 


USGOLPPJ 


PKINT  MATRICES  TO  SOLARIZE  THE  DIFFERENCES  BETWEEN  A  BASELINE 
RON  OE  I'SGOL  (USPASE)  AND  AN  ALTERNATE  RUN  (USPROJ),  ThE  MATRICES* 
USPROJER  -  MEAN  DIFFERENCE  BETWEEN  VALUES  OF  USPROJ  AND  USPASE. 
USPROJPR  -  MEAN  PERCENTAGE  DIFFERENCE  BETWEEN  VALUES  OF  USPROJ  And 
USBASE. 


************************************************************************ 

GENO 

DELETE  DATA  PRREV**I 
CNEXP** I 

tdval**i 

RTDCN**» 

rtdpn**i 
US****. USPROJ I 

us****Iu sproj.fr  I 

OS****.uSPRGJ.PCERI 


DELETE 

DELETE 

oelete 

delfte 

DELETE 

DELFTF 

OELETE 

PERIOD 

CRDATA 

RANGE 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
II 

VALUE  ER  PCER*  VARIABLES  ENDOGENOUS 
1986  TO  1990.  DSETS  USPASE  USPROJ  I 


DEFINITION* 


CRDATA  VALUE  ER  PCER*  VARIABLES  USPTPF  I'SPTPK  USPTML  USPTFm  USPTPE  USPTwH  USPTCN 
USPTCG  USPTRI  USPTSB  USPTOS  USPTSm  USPTSO  USPTUm  USPTOO  USPTDB  USPTOC  USPTDO. 
RANGE  1986  TO  1990*  OSETS  USBASE  USPRQJl 

DOCORE  USP ROJER"MATREP( USPROJER* ME  An (USaRwH_USPROJ.ER ) »  7* 

DOCORE  USPROJER*maTREP(USPROJ6R*mEAN(uSaRCN.USPR0J_ER)*  8* 

DOCORE  uSPROJER-maTREP ( USPROJER .mean ( uSARCG.USPROJ.ER ) ♦  9* 

DOCORE  USPROJER-MATREP (USPROJER* me  Aw (uSARR I.USPROJ.ER ) *10* 

DOCORE  USPROJER «MATREP( USPROJER *Mf An ( USARSB.USPRO J.ER ) *  11  * 

OOCORE  uSPROJER»MATRFP(USPROJER*MEAN(uSAROS.USPROJ.ER ) *12* 

DOCORE  USPRC.JER-MATREP(USPR0JER»MEAN(USYDWH.USPR0J.ER)»  7* 

I  I 


1 )  I 
1)1 
1)1 

1 )  I 
1)1 
1  >  I 

2) 1 
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DOC  OR  E  USPRO JER"* ATREP ( uSPRO JER ♦*£ AM  USQTDC.DSPROJ.ER )» 18*  lfe  1  1 
DOCORE  USPROJER«MATHEP(USPROJER»*tAN<USOTDO.USPROj„FR ) ♦ 1 9 *  16 ) » 

DO  PRR E V BF ■  (OSPSBF.USPROj)*(USOSBP.USPROJ^-(USPSeF.OSBASE  )*<USOSBP.»  SPASE 
DO  PRREVPK-  (USPSPK.USPROj)*(uSOSP<.iiSPROj)-(OSPSPK,.USHASE)*(uSOSP^.i-'SPASfc 

00  PRREVhl-  (USPS*1_U$PHOJ)*<USOS*L_USPROJ>-<U$PS’*L.USPASE  *  oSOSmL.USBASE 
DO  PRREVDi-*  (uSPSDH  JJSPRGJ  )  *  (  USQSD*„USPR0  J  )  -  (  USPSD^.uSBASfc  > * <  uSQSu*_USF A5E 


DO  RTDP^OC* (  (  ( ( USQTDC  J'SPROJ  >/(USOSDC.USPRQJ>  ) - <  (USQTDC_USBAS6>/<USQSDC.USBASE) 
) ) /( (USOTDC.USBASE ) / ( USOSOC.USPASE )) >*100,0  I 

DO  RTDPNOO* ( ( ( ( USOTOO.USPROJ ) / ( USOSDO.USPRG J > ) • ( ( USOTOO.USPASE ) / ( USQSDO.USB ASE ) 
})/{ (USOTDO.USRASE ) / ( "sOSnO.USBASE )) >*100,0  I 
DOCORE  USPROJPR*RATREP  (  USPRO  JPR  **E  AN  ( RTDPNBF  >  »  1  *2 1  > 

USPROJPK»^EAN(RTDPNP< ) »  2*21) 

U$PROjPR*^EAN(RTOPNml ) *  3*21) 

USPROjPRti-FAMRTDPNPK)  ,  5*21) 

USPROjPR *PEA\ (RTDPNPt > *  6»21> 

USPROjPR»pEAN<(RTDPNwh)  «  7*21) 

USPR0jPR**EAN(RTDPNO)  t  8*21> 

USPROJPR **EAN (R7DPNCG » t  9*21> 

USPR0JPR«^EAN(RTDPNRI  )» 10*21 ) 
uSPR0jPR*mEan(RTDPNS8) *11*21 > 

USPROJPR»REAN(RTDPNOS) *12*21 > 

USPROJPR « *E AN <RTDP*S*> *13*21 > 

USPROjPR»Rt An (RTDPNSO) *14,21 ) 

USPROJPRt*EAMRTDPNO*>  *15.21 > 

USPROjPR*nEAMRTDPNOO)  *16*21) 

U$PR 0JPR**E AM RTDPNDB) *17*21 ) 

USPROJPR *REA* (RTOPNOC >  *18*21 ) 

USPROJPR  *cEAMRTOPnDO)  *19*21 > 

DO  USPROJPR"USPROJPR I 

DOCORE  0PRTR‘ATtUSPR0JPR*USGDR0Wi,L«USPR0C0L,L*0*0*< 

DOCORE  PR  I  NT ( NFAN ( US ARTT. USPRO J.PCER ) ) I 
DOCORE  PR|NT(n£an(US7TRL.USPR0J„PCER>  >1 
DOCORE  PRJNT(MEAMU$OROM„uSPRQJ„PCER)  >1 
DOCORE  PRINT(mEan(USCGAU„uSPRGJ.PCER > ) I 
DOCORE  PRINT(nEAN(USLPI.USPROJ.PCER > ) I 
DOCORE  PRINT<MEAMUSOSP*_USPROJ.PCER  >  )  » 

DOCORE  PRINT(»*6AN(USS8Pf-.USPR0J_PCER  >  M 


DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 

DOCORE 


USPROJPR* *ATREP( 
USPRO JPR»HATR£P ( 
usprojpr»matrep ( 
USPROJPR  «maTREP ( 
USP«OJPR»*ATREP( 

usprojpr*matrep ( 

USPRQJPR**ATREP ( 

usprojpr»*atrep ( 

USPR0JPR«“ATREP ( 
USPROJPR-^ATREP ( 
USPR0JPR*NATREP ( 
USPROJPR "“ATREP ( 
USP»OJPR*NATREP ( 
USPROJPR  b>*ATR6P( 
usprojpp«matrep  < 
usprojpr*»*atrep  ( 

USPROJPR“*ATREP( 


>23 « USPRO JPT '  L  ♦  1  > » 


I-B.8.  Program  to  Print  Values  for  Selected  Variables 


Output  data  from  a  model  simulation  is  stored  in  a  TROLL  user  named 
DSET.  These  output  DSETS  can  be  displayed  and  manipulated  using  TROLL 
OPRTDSET  and  other  commands  as  described  in  the  TROLL  manuals.  This 
section  presents  two  prepared  TROLL  programs  which  can  easily  provide 
"readable"  TROLL  simulation  output.  They  have  been  set  up  to  efficiently 
use  TROLL’s  "MACRO"  command  facility. 
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I-B.8.a.  DISPLAY  -  Display  Selected  Variables  from  an  Output  DSET. 


DISPLAY  is  a  short  TROLL  MACRO  that  can  be  used  to  print  variables  that 
are  in  a  DSET  in  matrix  form.  Five  parameters  are  passed  to  the  Macro. 

1/  The  name  of  the  DSET. 

2/  A  range  of  dates  (ex.  1975  to  1980)  or  "ALL". 

3/  A  heading  and/or  footnote  for  the  table. 

4/  A  list  of  the  specific  variables  to  be  printed. 

5/  A  list  of  column  headings  (optional) . 

All  parameters  should  be  put  in  double  quotes.  The  heading  lines  and 
the  list  of  variables  can  be  on  more  than  one  card.  The  macro  has  been 
tested  with  a  list  of  18  variables  and  works  well,  however,  a  longer 
list  could  cause  an  error  because  of  TROLL  line  length  restrictions 
(200  chr.).  If  there  is  a  comma  in  the  heading,  TROLL  assumes  that 
everything  following  the  comma  is  a  footnote.  If  column  headings 
are  not  used,  then  two  double  quotes  should  be  put  in  its  place. 

Example i 

&DISPLAY  "USBASE"  "ALL" 

"QUANTITY  DEMANDED" 

"USQDWH  USQDCN  USQDDM" 

"WHEAT,  CORN,  MILK" 


EXAMPLE  TABLE 


ty U »  N 7  I  T  Y  pc  HANDED 


s 


: 

ssssss ;s 
l97o  i 
197/  i 
197d  i 
197v  * 

19bD  i 


WHEAT 

1 

/a 5. 
19931.3 
20170.1 


SSESSS i SSS 


i  corn 

i  1  3  C  3  v  . 
i  13586.0 
i  1  5  9  o  b  • 

i  1  a  l  y  3  „  4 
i  1  a  v  1  ?  .  6 


i  MIL'S 

;  2Cb3o.7 

;  2  7  0  b 1 .3 

:  27 1 « i  ,t> 

i  2  /  <4  44 . 6 
i  27US1.9 


i 

i 

i 

1 

; 

i 

i 

i 

i 
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Listing  of  a  Longer  "DISPLAY"  Routine 


.DISPLAY. DATA 


OUTOPT  RMARG  132  FPTFIELD  iM,  TABWJDTH  7  I 
EERROR  EIGNURE 

EDISPLAY  "LKUSBASE"  M 1976  TU  1990" 

"SUMMARY  OUTPUT  OF  LINKED  RUN  -  USGUL  SUPPLY  QUANTITY  (1000  MT  )  » 
"DSqSBF  USOSPK  USOSML  USOSDm  uSQSPM  USQSPE 

USqSwh  usoso  USQSCG  USQSRI  usqssb  usqsos 

USQSSM  USUSSO  USOSUM  USQSOU 

USUSUB  USQSDC  USQSDD'1 

"BEEF ♦  PORK*  MUTTON+LAMB.  DAIRY-MlLKf  P0ULTR Y-ME AT * 

P00L1 R Y-EGGS.  whfcAT.  CQPN.  OTHER  COARSE  GRAINS.  RICE. 

SOYBEANS.  UTHfck  UILSfcEDS.  SOYMEAL.  SOYOlL*  OTHER  MEALS. 

OTHER  OILS.  DAIRY-BUTTER .  DAIRY-CHEESE.  DAIRY-OTHER  PRODUCTS'1 
EDISPLAY  "LKUSBASE"  "1976  TU  1990" 

"SUMMARY  OUTPUT  OF  LINKED  RUN  -  USGOL  TRADE  QUANTITY  (1000  MT)" 
"USQTbF  USOTPK  USQTML  USQTPM  USQTPE 
USQTwH  USQTCN  USUTCG  US0TR1  USQTSB  USOTOS 
USQTSM  USQTSO  USQTOM  USOTOO 
USQTUE  USQTDC  USQTDO" 

"BEEF.  PURR.  MUTTON+LAMB  «  PUULTRY-ME AT. 

POULTRY-EGGS.  WHEAT.  CORN.  OTHER  COARSE  GRAINS.  RICE. 

SOYBEANS.  UThER  OILSEEDS.  SOvmEAL.  SUYUIL*  OTHER  MEALS. 

UThER  OILS.  DAIRY-BUTTER.  DAIRY-CHEESE.  DAIRY-OTHER  PRODUCTS" 

EDI  SPLAY  "LKUSBASE"  "1976  TU  1990" 

"Summary  UUTPUT  OF  LINKED  RUN  -  USGOL  SUPPLY  PRICE  (100U  HT ) » 
"USPSBF  USPSPK  USPSHL  USPSOm  USPSPM  USPSPE 
USPSwh  USPSCN  USPSCG  USPSRI  USPSSP  USPSOS 
USPSSH  USPSSO  USPSUH  USPSOU 
USPSDB  USPSDC  USPSUO" 

"BEEF.  PORK.  MuTTON*LAMB»  UAIRY-MiLK.  POULTRY-MEAT. 

POULTRY-EGGS.  WHEAT.  CORN.  OTHER  COARSE  GRaInS.  RICE. 

SOYBEANS,  other  OILSEEDS.  SOYMEAL.  SUYOIL.  other  meals. 

OTHER  UILS.  DAIRY-BUTTER.  DAIRY-CHEESE .  DAIRy-OThER  PRODUCTS" 
EDISPLAY  "LKRwBASE"  "1976  TO  1990" 

"SUMMARY  UUTPUT  OF  LINKED  RUN  -  RwGOL  SUPPLY  QUANTITY  (1000  MT)" 
"RWLSBF  RWQSPK  RWQSml  RwOSPm  RWQSPE 

RHWSwH  RwQSCN  RWQSCG  RwQSRl  RWQSSB  RwQSOS 

RWQSSM  RWQSSO  RWQSQM  RwQSOO 

RWQSDB  RwQSDC  RWQSDU" 

"BEEF.  PURN.  MUTTON+LAMB.  POULTRY-MEAT. 

POULTRY-EGGS*  WHEAT.  CORN.  OTHER  COARSE  GRAINS.  RICE. 

SOYBEANS.  OTHER  OILSEEDS.  SOYMEAL.  SOYOIL.  OTHER  MEALS. 

OTHER  OILS.  OAIRY-BUTTER.  DAIRY-CHEESE.  DAIRY-OTHER  PRODUCTS" 
EDISPLAY  "LKWDBASE"  "1976  TO  1990" 

"SUMMARY  OUTPUT  OF  LINKED  RUN  -  wDGOL  WORLD  TRADE  PRICEdOOO  MT ) " 
"WDPTBF  WDPTPK  WDPTML  WUPTPm  WDPTPE 

wDPTwH  WDPTCN  WDPTCG  wDPTRI  WDPTSB  WDPTOS 

WDPTSM  WUPTSO  WOPTOM  WOPTQO 

WDPTQB  WDPTDC  WDPTDO" 

"BEEF.  PORK.  MUTTON+LAMB.  POULTRY-MEAT. 

PCULTRY-EGGS.  WHEAT.  CORN.  OTHER  COARSE  GRAINS.  RICE. 

SOYBEANS.  UThER  OILSEEDS.  SOYMEAL.  SOYUlL*  OTHER  MEALS. 

OTHER  OILS.  DAlRY-bUTTER.  DAIRY-CHEESE.  DAIRY-OTHER  PRODUCTS" 
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Listing  of  the  Display  MACRO  Program 


I.OISf'LAV  .malhu.da  i  A 


TRULL^MACRO^DISPLAY 

MGNUkE 

&  1 " b  T  MUL  A  T I  UN  SUFFIX  ?" 

*2"dATES  UR  ALL  ?" 

& 3 " M A 1 N  HEADING  ?• 

&«-VAhIArtLEb  ?" 
fc5"L0LUMN  HtAUlNGS  ?" 

&ENU 

UUTUPI  RMARG  132  FP  TF IELD  1«  TABHIDfH  7; 

C  ROMA  t  L  AttEL  USETS  fcl, RANGE  &2,VAKI  &<» » 

LEUIT  X )  ADD  TOP , E3 ;  FILE; 

X3ETC  Eb  *  "M*COL"  &END 
LEUIT  Y  ;  ADD  TOP, 15;  FILE; 

1 1 F  "*5"  CNE  ""  IbETC  lb  s  "Y"  &END  1 1 F  END 
DU  UPKTMAT  (DATAJtl  ,  E  I  .J?0" 'L  , &b 'L  #  0 , 0  »  4  »  X  #L  ,  1  )  ; 

DELETE  DATA  DATA^.11  ; 

DELETE  GENERAL  LA«EL*X  LABELS  L  ABEL^l  1  L  ABEL*U  ^.COL  ; 


I-B.8.b.  VARTAB  -  Tabulate  Output  for  Selected  Variables. 


The  programs  that  follow  are  TROLL  macros  that  have  been  developed  for 
printing  GOL  data  in  tabular  form.  All  of  these  programs  have  been 
generalized  so  that  they  can  print  data  for  any  country.  There  are 
many  programs  that  work  together  in  printing  commodity  specific  variables. 
These  programs  can  print  most  GOL  commodity  specific  variables  immediately 
because  headings  have  been  predefined.  Other  variables  can  be  printed 
by  defining  appropriate  headings. 

There  are  also  four  macros  that  calculate  data  files.  These  are: 

PC  -  calculates  per  capita  consumption 
RS  -  calculates  real  supply  prices 

PAG  -  calculates  a  deflator  for  GOL  commodity  prices 
RD  -  calculates  real  demand  prices 

Because  PC,  RS;  and  RD  compute  commodity  specific  variables  and  create 
their  own  headings,  other  program  can  be  used  to  print  this  data  in 
tables . 

In  addition  to  the  programs  used  for  printing  commodity  specific 
variables,  there  is  a  macro  called  DISPLAY  which  can  print  any 
variables  that  are  in  a  DSET. 
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The  following  is  a  description  of  four  TROLL  macros  that  make  it  very 
easy  to  print  simple  reports  of  GOL  commodity  specific  variables e 
Although  any  commodity  specific  variable  can  be  printed  using  these 
macros,  subheadings  exist  only  for  those  variables  listed  below. 


riable 

Subheading 

Units 

Code 

QD 

Quantity  Demanded 

1000  MT 

QS 

Quantity  Supplied 

1000  MT 

QT 

Quantity  Traded 

1000  MT 

SK 

Ending  Stocks 

1000  MT 

EQ 

Export  Quota 

1000  MT 

MQ 

Import  Quota 

1000  MT 

PE 

Price  Estimate  (Demand) 

(*/MT) 

MD 

Margin  (Domestic) 

If 

MT 

Margin  (Trade) 

If 

PD 

Price  (Demand) 

II 

PT 

Price  (Trade) 

If 

PS 

Price  (Supply) 

It 

TC 

Tax(+) /Subsidy (-)  (Consumption) 

ft 

TE 

Tax (+) /Subsidy (-)  (Exports) 

If 

TP 

Tax(+) /Subsidy (-)  (Production) 

II 

TM 

Tax (+) /Subsidy (-)  (Imports) 

II 

*  units  of  local  currency  per  metric  ton. 

In  order  to  make  the  preparation  of  similar  reports  as  simple  as  possible 
the  method  of  specifying  report  parameters  was  broken  down  into  two  steps. 
In  the  first  step  (The  Macro  SETRPT)  the  user  provides  information  that 
usually  does  not  change  over  several  reports.  In  the  second  step  (The 
Macro  VARTAB)  the  user  specifies  only  the  variable  code  (  above  )  for 
the  item  he  wishes  to  print. 

The  parameters  needed  by  the  first  step  (SETRPT)  are: 

1/  Report  destination:  ONLINE  or  OFFLINE 
2/  The  name  of  the  country:  ex.  UNITED  STATES 
3/  The  GOL  country  code:  ex.  US 

4/  An  abbreviation  for  the  local  currency:  ex.  US$ 

5/  The  dates  to  be  used  in  the  reports:  ex.  1975  TO  1980 
6/  Optional:  Simulation  suffix:  ex.  USBASE 

To  pass  a  parameter  to  a  TROLL  macro  the  user  should  put  each  parameter 
in  double  quotes  after  the  macro  call.  It  does  not  matter  if  the 
parameters  are  spread  out  over  many  lines. 

Example  use  of  SETRPT: 

&SETRPT  "OFFLINE" 

"UNITED  STATES"  "US"  "US$" 

"1975  TO  1980" 

If  It 
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Notice  that  when  the  simulation  suffix  is  omitted,  two  double  quotes  are 
put  in  its  place. 

At  this  point  the  user  can  use  the  macro  VARTAB  to  print  any  of  the 
variables  listed  above. 

Example  use  of  VARTAB: 

&VARTAB  "QD" 

If  many  reports  are  needed,  the  user  can  use  the  TROLL  CALLMAC  procedure 
with  VARTAB,  instead  of  a  series  of  calls  to  VARTAB. 

Example : 

& CALLMAC  VARTAB  "QD"  "QS"; 

The  resulting  reports  are  shown  in  examples  1  and  2.  If  the  user  wants  to 
change  any  of  the  information  he  can  re-execute  the  SETRPT  macro. 

To  print  reports  of  items  other  than  those  listed  above  ,  the  user 
need  only  define  the  subheading.  The  subheading  is  created  using  the 
TEXT  command  of  the  REPORT  WRITER.  The  first  six  characters  of  the 
subheading  name  must  be  CRPTSH  and  the  last  two  must  be  the  variable 
code. 

Example:  Create  a  subheading  for  per  capita  consumption  data  which 
is  the  item  PC. 


REPORT ; 

TEXT  CRPTSHPC  C  UNDERSCORE  -  WID  132  132: 

<PER  CAPITA  CONSUMPTION^  < (KILOGRAMS  PER  PERSON) >; 

QUIT; 

To  clear  all  report  specifications  that  are  put  on  the  users  TROLL  file 
the  user  should  execute  the  macro  CLRPT. 

Example : 

&CLRPT 

The  macro  SETPERM  is  used  only  when  the  TROLL  file  containing  these  macros 
is  initialized.  Users  will  not  need  to  use  it. 

Listing  1  is  an  example  of  a  batch  job  that  uses  these  macros.  File 
FT10F001  is  the  users  file  and  File  FT12F001  contains  the  macros. 
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HISTORICAL  DATA  -  UNITED  STATES  -  LIVESTOCK  AND  OROOUCTS 
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:  s  other  :  ;  :  ;  :  s  s 
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Listing  1 


REPORT, cnTL 


//(■Bin  jotj  (  «  JO  1  i  )  t  'TROLL 

//  MijGLEVElsl »  TIHE=(  ,2i»)  f  PKTr*3 
/•ROUTE  PxIfsT  RMT13 
//STEHt  ExEt  ERSTkOlL 
//FTOSFoOl  DO  * 

HATCH  _ 

sl*kch  anwfft; 

&SETRPT  "URFLIME"  "UNITED  STATES*  "US" 
&CALLMAC  V  A  KT  A8  *UD"  "QS"» 

&CLRPT 
LOGOUT  t 


KERukT', CLASSIC* 


■US?"  •  t  9  7  5>  TO  IRHO" 


/  *  _ 

//FUOFuCl  OD  OSMsBBEW.SWM.bUL.TROLL.UATA, 

//  UNlTaSySOA,DlSP*ULD  _ 

//FTUFvOl  DO  DSNeHBB.Via. REpURT. D*TA, 

//  UNlTsSYSOA#DISP*ULD 

n 


*  * 


The  Macro  SETRPT  puts  the  parameters  passed  to  it  in  global  variables 
(CIFARGS)  so  that  they  can  be  accessed  by  VARTAB.  It  also  creates 
additional  CIFARGS.  The  contents  of  the  CIFARGs  are  explained  below: 


CIFARG 

NUMBER  CONTE  ITT  S 


1 

2 

3 

4 

5 

6 

7 

8 
9 


Report  Destination:  ONLINE  or  OFFLINE 

Country  Name 

Country  Code 

Local  Currency 

Dates 

Simulation  Suffix  (preceded  by  an  underscore) 
"SIMULATION  OUTPUT"  or  "HISTORICAL  DATA" 
Number  of  characters  in  country  name. 

Name  of  FORMS  to  be  used  default  is  "CRPTF.O" 


The  CIFARGS  used  by  the  report  programs  (SETRPT,  VARTAB,  etc.)  can  be 
altered  using  the  macro  CHNAGE.  One  use  of  this  is  to  charge  the  number 
of  significant  digits  printed  in  the  report.  CIFARG  (9)  contains  the 
name  of  the  forms  statement  used  in  printing.  CIFARG  (9)  normally 
contains  "CRPTF.O"  which  prints  integers  only.  To  print  one  significant 
digit  you  can  change  CIFARG  (9)  to  "CRPTF.l".  Up  to  four  significant 
digits  ("CRPTF.4")  can  be  printed  in  the  tables. 

The  general  format  of  the  statement  is:  &CHANGE  "CIFARG  NUMBER"  "TEXT  TO  INSERT' 
Example:  Change  CIFARG  (9)  to  "CRPTF.2" 

& CHANGE  "9"  "CRPTF.2" 
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The  following  is  a  description  of  four  TROLL  macros  that  create 
data  files: 


Macro  Name 

Computed  Information 

Data  File  Created 

PC 

Per  capita  consumption 

cc  PC  ** 

RS 

Real  supply  prices 

cc  RS  ** 

PAG 

Deflator  for  agricultural  products 

cc  PAG 

RD 

Real  demand  prices 

cc  RD  ** 

cc  is  a  two  digit  country  code. 

**  indicates  that  the  data  is  created  for  each  commodity. 

All  of  these  programs  reference  CIGARGS  that  are  initialized  by  the 
program  SETRPT.  This  makes  the  programs  independent  of  country  codes 
and  dates. 

The  data  files  created  can  be  permanent  or  temporary.  To  create  a 
temporary  data  file,  the  macro  should  be  called  like  this: 

&PC  "SAVE"  or  &PC  "" 

To  create  permanent  data  files  call  the  macro  like  this: 

&PC  "FILE" 

The  data  created  by  the  program  PAG  (a  deflator  used  in  calculating 
real  demand  prices)  is  created  for  all  years  available  and  it  is 
also  printed.  The  programs  PC,  RD,  and  RS  create  data  only  for  the 
range  of  years  given  to  SETRPT.  This  data  is  not  automatically  printed 
out.  To  print  tables  of  this  data  you  can  use  the  macro  VARTAB. 

Example  1: 

Compute  and  file  per  capita  consumption  data  for  the  United  States 
for  the  years  1975  to  1980.  After  computing  this  information,  print 
it  in  a  table. 

&SETRPT  "OFFLINE"  "UNITED  STATES"  "US"  "US$" 

"1975  to  1980"  "" 

&PC  "FILE" 

&VARXAB  "PC" 

Example  2: 

Compute  real  demand  prices  for  CANADA  1975  to  1980,  and  print  a  table. 

&SETRPT  "OFFLINE"  "CANADA"  "CN"  "CN$" 

"1975  to  1980" 

&PAG  "SAVE" 

&RD  "FILE" 

&VARTAB  "RD" 

Note:  In  order  to  calculate  real  demand  prices  you  must  create  the  constant 
ccWTNG  in  your  model.  This  constant  represents  the  percentage  of 
disposable  income/expenditures  spent  on  food. 

Example:  CEDIT  USGOL;  ADD  USWTNG  0.16;  FILE; 
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PAG. MACRO. UA1A 
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I-B.9.  Plotting  Simulation  Output  -  OPLTDSET 

The  output  variables  of  a  simulation  run  can  be  easily  plotted 
using  the  TROLL  OPLTDSET  command.  A  sample  set  of  commands  along 
with  a  sample  plot  of  a  variable  are  presented  below. 


USQSPE 

USGSOS 


OUTOPT  RMARS  132  FPTFIELD  14  TABWIDTH  7  FULEGEND 
RT1TLE  GCL  LINKED  SIMULATION  RUN  ; 

OPLTDSET  VARIABLES 

USQSBF  USQSPK  USOS^L  USQSDM  USQSPM 
USQSlxH  US3SCN  USQSCG  USGSRI  USQSSB 
USQSSM  USQSSO  USCSOM  USQSOO 
USQSDB  USOSDC  USQSDP  * 

RANGE  1976  TO  1990, 

DSETS  USGCL  LKUSBASE; 

OPLTDSET  VARIABLES 
USQTBF  USQTPK  USQTML  USQTPM 
USOTWH  USQTCN  USQTCG  USGTRI 
USGTSM  U SOT  SC  USOTOM  USOTCO 
USOTDB  USQTOC  USOTDG  , 

RANGE  1976  TO  1990, 

DSETS  USGPL  LKUSBASE; 


USCTPE 

USQTSB  USQTCS 


SIMULATION  OUTPUT  BY  VARIABLE 
USQTPE  -  ENDOGENOUS 


-leoo 

1976 

1931 

19  86 


.  -1600.  -1400.  -1200.  -1000.  -800.  -600.  -400.  -200. 


-1800.  -1600.  -1400.  -120C.  -1000.  -800.  -600.  -400.  -200. 


************  ********  ****************  *********(_  EG  END*  *********  **** 

TIME  BOUNDS:  1976  TO  1990 

SYMBOL  SCALE  NAME 
A  #1  USGOL 
B  Ul  LKUSBASE 


************* t************* *****************  ********************* 
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II.  Computer  Routines  for  Creating  and  Running  Programs  of  TROLL 
Commands  for  GOL  Models 

GOL  model  components  can  be  created,  managed,  and  run  using  sets  of 
TROLL  commands  for  various  modeling  tasks.  Given  the  repetitive  nature  of 
the  standard  models  and  given  the  desire  to  repeat  similar  TROLL  commands 
for  different  commodities  and  countries,  it  is  efficient  to  have  a 
computer  generate  as  many  of  the  repetitive  commands  as  possible.  This 
saves  editing  and  computer  connect  time. 

Two  types  of  computer  routines  are  presented  below.  The  first  type 
consists  of  sets  of  TSO  programs  and  commands  which  operate  on  the  WCC 
computer.  4/  The  second  type  consists  of  BASIC  programs  which  operate 
on  a  CP/M  micro  computer  system  and  generate  TROLL  commands  or  programs 
which  can  be  transmitted  from  the  micro  computer  to  the  mainframe 
computer  which  contains  the  TROLL  package.  5 j  Also,  a  few  utility 
programs  are  presented  which  may  prove  helpful  to  a  researcher  modeling 
in  TROLL  using  the  tools  outlined  in  this  report. 


II-A.  Mainframe  and  Utility  Programs  for  Building  TROLL  Programs 
and  Operating  GOL  Models. 

The  construction,  operation,  and  general  maintenance  and  improvement 
of  a  GOL  country  model  is  most  easily  done  by  using  a  set  of  utility 
programs  of  TSO  commands  which  accomplish  specific  tasks.  In  addition, 
job  control  programs  are  needed  to  run  TROLL  programs.  This  section 
documents  these  utility  programs  and  job  control  commands. 


II-A.l.  Utility  Programs  for  Building  TROLL  Programs 


A  set  of  utility  programs  of  TSO  commands  can  be  used  to  create  a  new 
standard  model  and  supporting  programs  and  obtain  printed  or  punched 
copies  of  such  programs. 


4 j  For  details  about  the  Time  Sharing  Option  (TSO)  see;  0S/VS2 
TSO  Command  Language  Reference,  IBM  Corporations,  Poughkeepsie, 
N.Y.,  1978. 

5/  For  details  about  the  CP/M  (trademark)  operating  system  for 
micro  computers  see:  An  Introduction  to  CP/M  Features  and 
Facilities,  Digital  Research  Corp„,  Pacific  Grove,  California, 
January  1978.  The  BASIC  programs  presented  in  this  report  are 
written  in  Microsoft  BASIC  (trademark)  but  would  run  in  other 
versions  with  some  modification.  For  details  on  Microsoft  BASIC, 
see  the  appropriate  manuals  which  come  with  the  version  installed 
on  the  micro  computer  in  use. 
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IX-A.l.a.  CREATE. CLIST  -  Clone  a  New  Country  Model  from  USGOL 


' . ^BHR. CREATE . CLIST '  uses  USGOL  programs  to  create  similar  programs 
for  other  countries.  It  does  this  by  changing  all  occurances  of  "UNITED 
STATES"  to  the  new  country  name,  "US$"  to  the  new  currency  name,  and  "US" 
to  the  new  country  code.  If  any  changes  are  made  to  the  words  "EXOGENOUS" , 
"ENDOGENOUS",  "CUSTOM",  "CRUSH",  or  "USEMQD"  then  these  changes  are 
corrected.  Any  other  words  containing  the  characters  "US"  will  be 
changed,  therefore  these  words  must  be  corrected  by  the  user. 

In  the  following  example  the  file  *  BCSBSBB .  MflU .  USGOL  SMC .  DATA  *  is  used 
to  create  a  similar  file  for  the  European  Community.  The  new  file  that 
is  created  is  called  'flQEBB.  ■■■B.ECGOL SMC. DATA* .  Notice  in  the  example 
that  when  the  user  is  asked  for  the  GOL  file  code,  only  three  (3) 
characters  need  be  entered  to  identify  the  file  (SMC). 

The  first  prompt  is  for  the  country  code,  this  code  is  by  definition 
restricted  to  two  characters.  The  second  prompt  is  for  the  country 
name,  this  is  limited  to  two  words  (1  imbedded  space)  by  the  CLIST. 

The  third  prompt  is  for  the  currency  code,  this  is  limited  to  one  word 
by  the  CLIST.  After  the  third  prompt  the  information  given  by  the 
user  is  echoed  back  so  the  user  can  verify  that  it  is  correct.  If 
any  corrections  need  to  be  made,  then  the  user  can  enter  the  corresponding 
word  in  parenthesis  and  the  program  will  prompt  for  the  correct  infor¬ 
mation.  When  all  corrections  have  been  made,  the  user  should  press 
carriage  return.  Once  this  information  is  entered,  the  user  can 
’create'  as  many  programs  as  needed. 

The  next  prompt  is  for  the  GOL  file  name.  After  this  is  entered, 
the  user  must  verify  it.  If  it  is  incorrect,  then  the  user  can  enter 
"N"  if  it  is  correct  the  user  can  enter  "Y"  or  just  press  carriage 
return.  The  program  will  then  print  out  some  messages  that  can  be 
ignored.  After  the  program  has  created  the  new  file,  the  user  is 
asked  whether  it  should  be  printed  offline  or  put  on  punch  cards. 

If  the  user  enters  only  PUNCH,  then  the  file  will  be  put  on  punch 
cards  and  printed  offline  (same  as  entering  PRINT  PUNCH).  After  this 
the  user  is  again  asked  for  a  GOL  file  to  'create*  if  the  user  wants 
to  exit  he  should  press  carriage  return  at  this  prompt. 
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SAMPLE  RUN 


exec 


create 


c  L  i  s  t 


£  f  i  T  E  K  COUNTRY  CODE  F  0  K  FILE  Tu  BE  CHEATED 
e  c 

ENTER  THE  NAME  UF  THE  COUNTRY  (EC) 
european  coi.i  inunity 

ENTER  TITLE  OF  HEW  CURRENCY  (EC) 


ecu 


the  input 

Y  U  U  HAVE 

GIVEN  IS: 

Country 

Code  ------ 

--- ( CODE  ) - 

---EC 

country 

NAME------ 

- — ( NAME ) ---■ 

---EUROPEAN  COMMUNITY 

CURRENCY 

---(CURR)---- 

- ECU 

ENTER  "SHUN"  Tu  REDISPLAY  INPUT 

E.JTEK  THE  NAME  UF  THE  ITEM  Tu  CHANGE  UR  CARRIAGE  RETURN 


ENTER  UUL  FILE  NAME  (3  CHARS)  (PRESS  CARRIAGE  RETURN  TU  EXIT) 

S  i.i  C 

VERIFY  FILE  CUDE  IS  S II C  (Y*  OR  N) 


DATA  SET  MHM  .  ECGULSIIC  .  DAT  A  NUT  LINE  NUMBERED,  USING  NUNUM 
TUP  OF  DATA  SET 

ENTER  "PRINT"  AND/OR  "PUNCH"  (UR  CARRIAGE  RETURN) 
print  punch 

JUU  HHH  (  J  U  B  U4  1  59)  SUBMITTED  **  FREE  ALL  FILES  ** 

5H AS  Pi  65  JUU  4159  OMBHi  ENDED  CN(UU) 

ESCS  DATA  SERVICES  CENTER  print  utility  r  3 : 2 
PRINT  R  3 : 2 

DATASET  -  0M  .  SIMi  .ECgULSMC.DAT  A 
NUMBER  UF  LINES  PRINTtD  =  1136 
NUI1UER  UF  PAgES  PRINTED  =  23 

SiSUUT  (A)  IS  LABELLED  ■■■■  AND  RUUTED  TO  RMT13 

ENTER  uUL  FILE  NAME  (3  CHARS)  (PRESS  CARRIAGE  RETURN  TU  EXIT) 


READY 

Logoff 

CUNNECT  Charge  --  S  .22 

SESSION  CHARgE  —  $  2.64 

EXPUNENT I  AT IUN 

OO0  LUggED  UFF  TSU  AT  1  6 :  5  p  :  U  6  ON  MAY  25, 
LAST  STEP  COHPLETIUN  CUDE  WAS  USER  UUL) 


«  *  *  ;  I V  j 

A  P  P  R  U  X  TSU  SESSIUN  CUSf 
19  6  2 


u  I  r ,  i  u  j  i 
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LISTING  OF  CREATE  PROGRAM 


OOIO  CONTROL  PROMPT  NOFLUSH 
0020  SET  MODE  ■  INPUT 
0030  WRITE 
0040  PCOOEI  WRITE 

0050  WRITE  ENTER  COUNTRY  CODE  FOR  PILE  TO  BE  CREATED 
OO&O  WRITE 
0070  READ  {.CODE 

ooeo'  IF  {.LENGTH!  (.STR  ( {.CODE  )  )  NE  2  THEN  ♦ 

0090  DU 

0100  WRITE  COUNTRY  CODE  MUST  BE  2  CHARACTERS  LONG. 

0110  WRITE 
0120  GOTO  PCODE 
0130  END 

0140  IF  6M0DE  EO  EDIT  THEN  GOTO  CHANGE 
01  SO  PnAmei  WRITE 

0160  WRITE  ENTER  the  NAME  OF  ThE  COUNTRY  (ECODE) 

0170  WRITE 
0180  READ  A  b  C 

0181  IF  CSTRIEC)  NE  LSTR!)  ThEN  + 

0182  DU 

0183  WRITE  THE  COUNTRY  NAME  IS  LIMJTTED  TO  2  WORDS  PLEASE 
0184  WRITE  ENTER  AnUTHER  name  AT  PROMPT 
0184  GQTU  PNAMB 
0185  END 

0190  SET  NAME  •  {.STRICA  LB) 

0200  IF  {.STR(EA)  EU  (.STR!)  THEN  GOTO  PNAHE 
0210  IF  {.MODE  EO  EDIT  THEN  GOTO  CHANGE 
0220  PCURRi  WRITE 

0230  write  ENTER  title  OF  new  CURRENCY  UCODE) 

0240  WRITE 
0250  READ  A  b 

0251  IF  ESTR(EB)  NE  L STR ( )  THEN  ♦ 

0252  DO 

0253  WRITE  CURRENCY  NAME  IS  L 1 M I T TED  TO  ONE  WORD 

0254  WRITE  PLEASE  ENTER  NEw  CURRENCY  NAME  AT  PROMPT 

0255  GOTO  PCURR 
0256  END 

0260  SET  CURR  •  LSTR(CA) 

0270  IF  CSTR(CA)  EO  (. STR  (  )  THEN  GOTO  PCURR 
0280  IF  &MODE  EO  EDIT  THEN  GOTO  CHANGE 
0290  SET  MODE  ■  EDIT 
03u0  ERROR  GuTu  CH&ERR 
0310  PSHQwi  kRITE 

0320  WRITE  THE  InPuT  YOU  HAVE  GIVEN  1 S I 

0330  WRITE  COUNTRY  CODE -------- (CuDE)------LC ODE 

0340  WRITE  COUNTRY  NAME name  ) -----.{.NAME 

0350  WRITE  CURRENCY  — --------- -(CuRR) -  ----»(.C  UR  R 

0360  WRITE  EnTER  "SHOW  TO  REDISPLAY  INPUT 
0370  Change i  write 

0380  WRITE  ENTER  THE  NAME  OF  THE  ITEM  TO  CHANGE  OR  CARRIAGE  RETURN 
0390  WRITE 
C400  READ  ITEM 

0410  IF  LITEM  NE  £  STR (  )  THEN  GOTO  PC  I  TEN 
0420  ERROR  OFF 
0430  pfileiwrite 

0440  WRITE  ENTER  GUL  FILE  nAm£  (3  CHARS)  (PRESS  CARRIAGE  RETURN  TO  EXIT) 
0450  WRITE 
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0*60 
o4io 
0*80 
0*90 
0500 
0510 
0520 
0530 
05*0 
0550 
0560 
0570 
0580 
0590 
0600 
0650 
0660 
06  70 
0680 
0690 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0761 
0762 
07  70 
0780 
0790 
08u0 
0810 
0820 
0830 
0840 
0850 
0860 
0870, 
0880 
0890 
0900 
0910 
0930 
0931 
0940 
0941 
09*1 
0941 
0942 
0950 
0960 
0970 
0980 
0990 
1000 
1010 
1020 


READ  FILE 

IF  EFILE  EO  ESTR (  )  THEN  EXIT 
IF  ELENGTMESTRIEFILE  )  )  Nt  3  THEN  ♦ 

00 

WRITE  GOL  FILE  CODE  HtjST  BE  3  CHARACTERS  LONG, 
GOTO  PF1LE 

End 

WRITF 

WRITE  VERIFY  FILE  CODE  IS  ESTR(EFILE)  (Y*  OR  N) 

WRITE 

READ  VER 

IF  EVER  E 0  N  OR  EVER  EO  NO  THEN  GOTO  PPILE 

SET  FILE1  ■  .US&OLEF ILE . .DATA 

SET  F I  i_E2  ■  ECODE. GOLEFILE. .DATA 

CUPY  EFILE1  EF1LE2 

EDIT  EFILE2 

TOP 

*  US*  US  UNITED  STATES  ( DUMMY  TEXT  STRING) 

C  *  999999  /USWECURR/ALL 
TOP 


C  *  999999  /US/ECUDE/ALL 
TOP 

C  *  999999  /UNITED  ST  A T E S/EN Am E / A LL 
TUP 

•  EXOGEnOECUDE  CRECODb.H  EnDOGF nOECODE  ECODE. E*UD  CECUDE.TOm  ECODE.UALLY 

C  •  999999  /EXQGENOECODE/EXOGENOUS/ALL 

TOP 

C  *  999999  /ECODE .UALLY/USUALLY/ALL 
TOP 

C  *  999999  /CRECODE ,h/CRUSh/AlL 
TOP 

C  *  999999  /ENDUGENUECODE/ENDOGENOUS/ALL 


TOP 

C  *  999999  /ECODE .EMOU/USEMOD/ALL 
TOP 


‘C  *  999999  /CECUDE.TOM /COST OH /ALL 
TUP 
DEL  * 

END  SAVE 
wR  I  TE 

wkITF  ENT  FR  "PRINT"  AND/OR  "PUNCH"  (OR  CARRIAGE  RETURN) 


wR  I  TE 


READ  0P1  0P2 

IF  EDP1  EO  CSTRl)  THEN  GOTO  PFILE 
IF  G0P1  EQ  PUNCH  OR  G0P2  EO  PUNCH  THEN  ♦ 

DO 

PUNCH  ESYSPRFF,  ,EF  ILE2  ImSri  ESYSUlD 

PR  I  NT 2  ESYSPREF. ,EF ILE2 
GOTO  PFILE 


ENO 

IF  E0P1  EO  PRINT  OR  E0P2  EO  PRINT  THEN  PR  1 N  T  2  ES YSPR E F  , ,  EF  I  LE 2 

GUTU  PFILE 

ChGERRIwRITE 

WRITE  ENTER  THE  NAME  THAT  IS  IN  PARENTHESIS  THAT 
WRITE  CORRESPONDS  TO  THE  INPUT  YOU  WANT  TO  CHANGE 
WRITE  IF  YOU  DON’T  WANT  TO  MAKE  ANY  CHANGES  THEN 
«RITE  PRESS  CARRIAGE  RETURN. 

WRITE 

GOTO  CHANGE 


72 


II-A.l.b.  COPY.CLIST  -  Build  an  Equation  Set  for  all  GOL 
Commodities  from  a  Master  Equation 


The  CLIST  COPY.CLIST*  takes  a  generalized  TROLL  statement 
and  from  that  creates  nineteen  copies  of  the  statement  each  specific  to 
one  of  the  19  commodities  used  in  GOL. 


In  the  generalized  statement  the  user  puts  the  characters  '$$’  wherever 
commodity  codes  are  to  be  put.  The  generalized  statement  can  be  any 
number  of  lines  long  and  must  be  in  a  TSO  dataset.  The  CLIST  assumes 
that  the  new  statements  are  to  be  put  on  punch  cards,  however  this 
assumption  is  easily  overridden. 


EXAMPLE:  In  this  example  the  user  creates  a  dataset  QTEQ.DATA’ 

that  contains  the  generalized  statement.  Then  the  user 
executes  the  CLIST  and  gives  it  the  name  of  his  dataset. 

The  CLIST  creates  the  new  statements  and  puts  them  in  a 
file  * ■B51.C19 .QTEQ.DATA* .  The  new  statements  are  then 
put  on  punch  cards. 


1. 


EDIT  BOn.  QTEQ .  DATA 

DATA  SET  OR  MEMBER  HOT  FOUND »  ASSUMED  TO  BE  NEW 
INPUT 

0O010  USQT$$:  USQTSS’DEF  ==  USQSSS’N-USQDS^N-USGASS’POLN 
00020 
EDIT 

END  SPUE 


Here  the  user  enters  the  generalized  statement  in  a  dataset. 

2.  exec.  '09BBH9.®■i.copy.clist,  'flSs&. qteq.data' 

This  executes  the  CLIST  and  gives  it  the  name  of  the  dataset 
containing  the  statement. 
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The  dataset  BMl.C19cQTEQ.DATA  is  created  and  put  on  punch 
cards.  Listing  1  is  a  printout  of  BBS. C19 . QTEQ .DATA. 


Listing 


ENB  OF 
REfiBY 


USQTBF: 
USQTPKs 
USQTML : 
USQTPM : 
USQTPE : 
USGTBM : 
USQTHC: 
USQTBEs 
U8QTBG : 
USQTWH: 
USQTCN : 
USQTCG: 
USQTRI  s 

USQTSB : 
USQTOSs 
USQTSMs 
USGTOMs 
USQTSOs 
USQTOG: 
BfiTfi 


i 


USQTBF’ 

BEF 

== 

USQSEF 

USGTPK* 

BEF 

== 

USQSPK 

USQTML* 

BEF 

== 

USQSML 

USQTPM* 

BEF 

== 

USQSF'M 

USQTPE* 

BEF 

— - 

USQSF'E 

USQTBM » 

BEF 

USQSBM 

USQTBC  * 

BEF 

== 

USQSBC 

USGTBB* 

BEF 

== 

USQSBB 

USQTBO * 

BEF 

— — 

USQSBO 

USQTWH* 

BEF 

USQSWH 

USQTCN* 

BEF 

USQSCN 

USQTCG* 

BEF 

USQSCG 

USGTRI * 

BEF 

= 

USQSRI 

USQTSB* 

BEF 

= 

USQSSB 

USQTOS* 

BEF 

== 

USQSOS 

USQTSM* 

BEF 

== 

USQSSM 

USQTOM* 

BEF 

USQSGM 

USQTSG * 

BEF 

== 

USQSSG 

USQTOO* 

BEF 

== 

USQSOO 

N-USQBBF* N-USQRBF’ P0LH5 

n-usqbfk*  n-usqrfk*  pcln; 

N-USQBML* N-USQ AML ’PCLN; 
N-USQBF'M*  N-USQRPM*  POLN5 
N-USGBPE* N-USQRPE’PCLN; 
N-USQBBM*  N-USQRBM*  PCLN5 
N-USGBBC* N-USQABC * PCLN  5 
N-USQBBB* N-USQABB ’ PCLN ? 
N-USQBBO* N-USQABO*  POLN5 
N-USQBWH*  N-USQRWH* PCLN  5 
N-USQBCN* N-USQflCN* PCLN  5 
N-USQBCG* N-USGRCG  *  PCLN  5 
N-USQBRI * N-USGRRI *  PCLN 5 

N-USQBSE* N-USQASE * PCLN  5 
N-USQBOS* N-USQAGS * PCLN 5 
N-USQBSM’  N-USQASM  *  PGLN5 
N-USQBGM* N-USQAOM*POLN5 
N-USQBSO* N-USGRSG*P0LN5 
NHJSQBGG*  N-USQRGG *  F'CLN? 


If  the  user  did  not  want  the  new  statements  on  punch  cards 
he  could  have  entered? 

exec  f  SSSSI.BBi.  copy  ,sc  list*  '  MEf.  qteq .  data  punch(no)’ 

If  the  user  had  used  the  characters  ' !!'  instead  of  '$$’ 
he  could  have  entered? 

exec  ‘HHHSH.BSBEcopy.clist5  1  BM|. qteq. data  chgstr(!!)f 
Listing  2  is  a  printout  of  the  CLIST. 
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COPY.CLIST 


0  1  O  HniiC  I  USNAME.  PUNCH(Y)  LHoS  TW ( 53 ) 
020  CON  T HOL  NUFLUbM 
0  30  SlT  C  a  a.LElGTHUUSNAHE) 

040  SET  Cl  s  8,SUBiiTK(  l  t5#s,ni)NAHt) 

050  SET  C2  *  6tSU«STK(7lfcCf4USNArtE) 

060  St T  J(iH  a  fl*Bi&i)!mSTK(4  85f  iUSNAHE) 
070  St T  nEnHUE  *  iSTHUCl..C19„fcC?) 
080  COPT  tUSNAME  fcNtWF iLfc  HtNUM(10  10) 


090 

SET 

*cr.NT 

9 

1  9 

100 

SET 

CHGu 

8 

rfF 

110 

SET 

ChuI 

8 

PR 

120 

St  T 

ChG2 

a 

ML 

130 

SET 

C  H  G  3 

8 

OH 

140 

SET 

CHG4 

8 

PH 

150 

SET 

CHG5 

8 

PE 

loO 

set 

CHG  6 

8 

RH 

170 

SET 

CHG7 

8 

CN 

1  60 

SET 

CHG8 

8 

CG 

190 

SLT 

CHG9 

8 

R 1 

200 

set 

ChGIO 

8 

SB 

210 

SET 

ChG  1  1 

m 

ns 

220 

St  T 

ChG  1 2 

8 

S8 

230 

SET 

CHG  13 

8 

SO 

240 

St  T 

Chg  1 4 

8 

OM 

250 

SET 

CHG  1  5 

8 

no 

260 

SET 

Chg  1 6 

8 

Ot> 

270 

SET 

CrlG  1  7 

8 

DC 

280 

SET 

Chg  l  a 

8 

no 

290  ALLOC  FI  (SOURCE)  U  A  ( «.N£  »F  1  Lt )  SnR 

300  St T  fcbCNT  a  o 

310  UPENFILt  SQDRC t  INPUT 

320  ERROR  GuT J  DONESL 

330  SLJGETFILE  SOURCE 

340  SET  HSCNT  a  tSCNT  ♦  1 

350  GOTO  SL 

'360  OUNtSLJ  CLOSFItt  SUURCE 

370  ERROR  OFF 

371  FMEEALL 

380  SET  X  a  10  *  fcSCNT  +  10 

390  SET  V  a  fcX-2o 

«00  SET  LCNl  *  0 

410  Set  z  ■  fcSCNT *  1 0 

420  SET  UtO  *  fcSTK  (  fcCflGS  T  H  l 

430  tUlT  fcNtuFlLF 

440  LEOITj  SET  Tl  »  fcX  +  tZ*fcLCM 

450  SET  T 2  «  iTl+fcT 

460  SET  fcNER  *  iSTR ( t&CuG iL C N ] ) 

4  70  COPT  10  fcl  fc  T  1 

480  c  ft  r 1  &  T  2  /tnLO/fcNEA/ALL 

490  SET  LCNT  a  &LLHT  ♦  1 

500  IF  fcLCN I  LT  &CCNT  ThFH  UlHO  LEGIT 

510  UELETt  10  fcZ 

520  Ui'.NJH 

530  End  save 

5«0  PRTU  *NF4FILE  CL*5S(A)  uEST(RnTll) 
550  IF  fcPUNtH  EQ  Y  Then  PUNCH  cstSPkEF 


Listing  2 


xnE  hF lLt 


t.lUH 


&SYSUIU 
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II-A.l.c.  PUNCH. CLIST  -  Punch  a  TSO  File 


This  CLIST  produces  a  punched  card  copy  of  an  TSO  file  with  a  .DATA 
suffix.  The  user  is  prompted  for  the  name  of  the  file. 


PUNCH. CLIST 


010  write 

020  TERMINAL  IINESJZE(80> 

030  WRITE  ENTER  NAME  (AFTER  MMM  OF  FILE  TO  BE  PUNCHED  T0DAV 

040  WRITE 

050  WRITENR  -•> 

060  READ  L A 
070  WRITE 

0B0  COPY  MM  .PUNCH. CNTL  SPARE. CNTL 

090  EDIT  SPARE  CNTL  OLD 

100  C  10  170  /GOL/LA/ALL 

110  UNNUM 

120  SAVE 

130  END 

140  SUBMIT  SPARE 
150  DELETE  SPARE 
160  WRITE 

170  WRITE  FILE  SENT  TU  BE  PUNCHED  TODAY 

180  WRITE 

190  STATUS  MM 

200  WRITE 

210  END 


PUNCH, CNTL 


//MBM  JOB  (  BESSMMM » R  J01 3  *  t  ♦  »  1 » » 0  )  *  'MMH  '  . 

//  CLASSIC  ♦MSGLEVEL"0tT  I  ME*  (  ,  20  )  » PR TY-3  . NOT  I  F  v -MEM 

/•ROUTE  PRINT  RMT13 

/•ROUTE  PUNCH  LOCAL 

//PUNCH  EXEC  PGM* I E BGENER 

//SYSPRINT  DO  SYS0UT*A 

//SYSIN  DO  DUMMY 

//SYSUT2  DO  SYSPUT*B«DCB* (PECFM*FB»LRECL*80tBLKSI2E*80) 
//SvSUTl  DO  DSN>MOM.Mm.GOL'DISP*SHR 
/• 

//PRINT  EXEC  PGM* I EBGENER 
//SYSPRINT  DD  SYSOUT-A 
//SYSIN  DD  DUMMY 

//SYSUT2  DD  SYSOUT-A, 0CB»(RECFM»FB*LRECL*80.8lKSIZE»80) 
//SySUT  1  DD  DSN-aM9M.MM.G0L,  DISP-SHR 
/* 

// 
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II-A.l.d.  PRINT. CLIST  -  Print  a  TSO  File 

Similar  to  PUNCH. CLIST,  this  program  prints  out  a  TSO  file.  The  user 
is  prompted  for  the  name. 


.PRINT. CLIST 


010  WRITE 

020  WRITE  ENTER  NAME  (AFTER  MB )  OF  PROGRAM  TO  BE  PRINTED 

030  WRITE 

040  WR I Tp NR  •••> 

050  READ  LX 
060  WRITE 

0T0  PRINT?  HBI,  HBH  .LX 
080  WRITE 
130  END 


II-A.2.  Job  Control  Programs  for  Operating  a  GOL  Model 


The  GOL  model  is  designed  to  operate  in  the  TROLL  simulation 
package.  Although  TROLL  is  an  interactive  system  and  can  be  operated 
accordingly,  programs  of  TROLL  commands  can  be  submitted  in  the  batch 
mode  from  cards  or  from  TSO  card  image  files.  The  card  image  files  can 
be  created  by  TSO  editing  routines,  by  punched  cards,  or  by  micro 
computer  files  telecommunicated  to  TSO.  This  section  of  the  report  lists 
some  programs  which  allow  inputs  to  GOL  models  in  TROLL  to  be  made  in 
different  ways. 
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II-A<,2.a.  Program  to  Submit  a  TROLL  Card  File  for  Batch  Processing 

This  job  control  program  submits  TROLL  commands  as  a  batch  job.  The 
MACRO  facility  of  TROLL  is  used  to  process  the  commands.  This  gives  the 
advantage  that  unnecessary  printout  of  'interactive'  TROLL  commands  is 
avoided  and  serious  TROLL  errors  will  terminate  TROLL  processing. 


ID  RSCS 

wen  job 


*CLASS»C* 


// 

// 


//•LOGONID  pftJM 
//♦PASSWORD  murMoam 
//STEP1  EXEC  ERSTROLl 
//PTOSEOOl  DO  * 

BATCH 
CAR DREADS 

OPRTHACRO  GOLSUB  I 
6GOLSUP 

DELETE  MACRO  GOlSUBI 
LOGOUT  I 

/*  _  _ _ 

//FTICFOOl  DD  •  ■■■l  o  G0l  «  TROLL  •  DAT  A  t 

//  UNIT»SYSDA,DI SP»OLD 
//FT04F001  DD  * 

troll„macro„golsuh 
CfRROR  (.IGNORE 

QUTOPT  RMARG  88  FPTFIELO  14  TABwlDTw  4  I 
USE  HDD  RwwGPLt 
HOPED  ITS 

PRINT  ALL  COMMENTS 
QUIT! 

/* 
n 
1 1 
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II-A.2.b.  TROLL. CLIST  -  Program  for  Selecting  and  Submitting  a  TSO  TROLL 
Program  for  Batch  Processing  from  the  TSO  Interactive  Mode 


This  program  submits  a  selected  file  to  TROLL  In  the  batch  mode.  The 
CLIST  calls  appropriate  CNTL  files  of  job  control  commands.  A  listing  of 
an  interactive  session  illustrates  the  use  of  the  program. 


TROLL. CLIST 


010  WRITE 

020  WRITE  ENTER  NAME  OF  FILE  TO  GO  TO  TROLL 
030  WRITE  (E.G,  USGOLEOCt  ECG0LS*Ct  ETC.) 

040  WRITE 

050  WRITENR  — -> 

060  READ  6A 
070  WRITE 

080  WRITE  ENTER  WIDTH  OF  CARD  I  WAGE  FILE  (72  OR  80) 

090  WRITE 

100  WRITENR  •••> 

110  READ  Cw 
120  WRITE 

130  WRITE  ENTER  name  OF  TROLL  FILE  TO  BE  USED 
140  WRITE  (E.G.  GOLt  USGOLt  ETC.) 

150  WRITE 

160  WRITENR  •••> 

170  READ  CB 
180  WRITE 

190  WRITE  ENTER  PRIORITY  (2»NJGHT  OR  3*DAY ) 

200  WRITE 
210  -RIT6NR 
220  READ  CP 

230  WRITE  _ 

240  COP v  BH. MACRO  0MM.BACK.CA  NQNUM 
250  EDIT  BB13ai.BACK.CA  DATA  0L0 
2 60  MERGE  MBM.CA  NONUm 
270  SAVE 
280  END 

290  COPY  Mi  .TROLLGWCP.  .CNTL  SPARE, CNTL 
300  EDIT  SPARE  CNTL  OLD 
310  C  180  /MOOEL/CB/ 

320  C  210  /SHR/(0LC, DELETE)/ 

330  C  80  /PROGRAM/CA/ 

340  C  200  /PROGRAM/BACK. CA/ 

350  UNNUM 
360  SAVE 
370  END 

380  SUBMIT  SPARE 
390  DELETE  SPARE 
400  WRITE 

410  WRITE  FILE  SUBMITTED  TO  BATCH 
420  WRITE  _ 

430  status  mmum 

440  WRITE 
450  ENO 
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e  x  p  c 


. t  re  l  l 


(-‘IT  Fr  (jap«p  OF  F  I L c  TO  GO  TO  TROLL 
(E.G.  USGOLEOC,  FCGOLSKT,  ETC.) 

”  —  =  >  t enp 

FfJTEP  WIDTH  OF  CARD  P'AGF  FILE  (7?  0°  ?P) 

enter  A r E  CF  T P 0 l l  file  to  bf  used 

(  c  .  0  .  G  n  L  ,  USGCL,  PTC.) 

=  -->r  o  l 

ENTER  PPIOPJTY  (?=NIGHT  00  3=RAY) 

--->2 

DATA  SPT  BOEHM  „  F  a  C  K  .  TE  <'  P  .  n  AT  A  opt  LIFE  r'U'-RFPFD,  USI"G  l.'ONUf 
JOB  B4BH  '  J  0  0  "•  2  o  9  f  )  SUB  PITTED  **  FREE  ALL  FILES  ** 

E"TPY  C  A  )  BflBM  .SPARE.  0  NT  L  OELEtED 

FILF  SJP'-ITTED  to  r  A  T  C  H 

JO?  nm  CJOFOPOOf  )  WAIT  I  f!  C.  FOP  E  Y  <=  C  UT  I  0  *J  ,  If:  HOLD  £TATiJS 

READY 


^ACRO.DATA 


TROLL„*ACRO.,GOLSUB 
E ERR  OR  6  IGNORE 
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TR0LL72J.CNTL 


t /wmamm  job  ( skbsbshbb  <r  jois  )  •  * iohbbh ■  .class-c. 

//  MSOLfcVtL-O*  TIME- (0.20)  »PRTY-3»  NOT  I  F  Y  «CB— 

/♦ROUTE  PRINT  RMT13 
//STEP1  EXEC  PGM.iEBGENER 
//svsprint  DO  SYSOUT-A 
//STSIN  DO  dummy 

//SVSUT2  DO  SYS0UT-A.0CB-(RECFM-FB*LRECL-80.BLKSIZE-80) 
//SYSUTI  DO  DSN-BBBEBH  « Hi  ,  PROGRAM ,  DATA.UNIT-SYSDA  *  D I  SP*$HR 

/♦ 

//STEP2  EXEC  ERSTRL 
//PT05P001  DO  ♦ 

BATCH 

CARDREAD  NOSEO  » 

SGOLSUB 

DELETE  MACRO  GOLSUBl 
LOGOUT  I 

/♦ 

//FT10F001  DD  DSN.BESaat,  MM  .MODEL.  TROLL,  DATA* 

//  UNIT»SYSOA,DISP*SHP 

//PT04F001  DD  DSn-MOB. ■■■.PROGRAM, DATA. 

//  UNIT«SYSDA,DISP»5HR 

/* 

// 


TROLL722.CNTL 


nmmmm  job  iii  mi  ir— .rjois)  ♦  *— a— 1  .class*o. 

//  MSGLEVEL-O. TIME- (1*00)  .PRTY-2»N0TIFY-**i 

/♦ROUTE  PRINT  RMT13 

//ST6P1  EXEC  PGM-IEBGENER 

//SYSPRINT  DO  SYSOUT-A 

//SYSIN  DO  DUMMY 

//SYSUT2  DD  SYSOUT.A,DCB-(RECFM.FB.LRECLp80.BLKSIZE-80) 
//SySUTI  DD  DSN-SBK3B.SBffl». PROGRAM, DATA.UNIT-SYSDA, DISP-SHR 

/♦ 

//STEP2  EXEC  ERSTRL 
//FT03F001  OD  ♦ 

BATCH 

CARDREAD  NOSEQ  I 
6GOLSUB 

DELETE  MACRO  GOLSUBl 
LOGOUT  I 

/♦  _ _  _ 

//FT10F001  DD  DSN- BBSS.  MMi. 

//  UNIT-SYSDA*DISP-SHR  _ 

//FT04F001  DD  DSN  - ■BOHBI ,  PM , 

//  UNJT-SYSDA.DISP-SHR 
/♦ 

// 


MODEL. TROLL. DATA* 
PROGRAM, DATA. 
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T*0LL«02»CNTL 


nmmmm  job  (  esusshbum  *  *  joi  3 )  •  *  ■■■■■ 1 ,  cl as  $  *o ♦ 

//  MSGL|-VtL*0iTlMt»(l,00)  ♦PBTV«2.N0TIFY»fflH*» 

/♦ROUTE  PRIM  RMT13 
//STEP1  EXEC  PGH-JEBGENER 
//$Y$PRJM  DO  SYSOUT* A 
/  / S Y  $  I N  DO  Dummy 

//SYSUT2  DD  SYSOUT«A*DCB"(RECPM.FB»LRECL*80*BtK5I2E«80) 
//SYSUT1  OD  DSN>HS3M.am,PROGRAM,OATA«UNlT>SYSOA«DISP>SHR 
/* 

//STEP2  EXEC  ERSTRL 
//FT05F001  DD  ♦ 

BATCH 

CAROREADI 

sgolsub 

DELETE  MACRO  GOLSUBl 
LOGOUT! 

/♦ 

//FT10F001  DD  DSSa BBBBI 1  ■■■( MODEL* TROLL » DATA  • 

//  unit»sysda*disp»shr 

//FT04F002  DD  DSN»BHQH.0n. PROGRAM, OATA* 

//  UNIT«SVSDA,DI SP»SHR 
/* 

// 


ID  R SC S 

wen  jor 

//  MSGLEVEL"! *T I mE» (0.20 ) *  PR TY«3* NOTIFY 
//♦LOGOMI' 

//♦PASSWORD 

//STFPO  EXEC  PG*«»IK  JFFT01,DYNAMNBR»50,REG10nb500K 
/7SYSTSPRT  DD  SYSOUT-A 
//SYSTSIN  PD  ♦ 

/♦ 


//STEP1  EXEC  PGm»AR233.C0ND«(17,L7 ) 
//maGICmSG  DD  SYSOUT-A 
// maGICIN  DD  ♦ 

/♦ 


//MAGICOUT  on  UNIT"SYSDA,DISP- (NEw,CATLG) *  SPACE- (4000. (20, 5 ) »RLSE ) t 
//  DCP»(RFCFw«FH»LRECL«fl0.RLKSl2fc»4000) , 

//  OS>i>WaBa.MM.TEMP(DATA 
/♦ 


//PRINT  EXEC  PGm» I E  8GENE  R 
//SYSPR1NT  DD  SYSOUT-A 
//SYSIN  DD  Dummy 
//SYSUT2  DD  S Y S U 0 T ■ A 

//SYSUT1  DD  ntM.— «  mzrmm  tpmc  n>t*  .nr  to. cud 
/♦ 


I  t 
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II-A.3.  Routine  to  Create  a  TROLL  File  -  TROLLFRM 


This  interactive  CLIST  creates  and  allocates  a  TROLL  file  which  can 
hold  GOL  component  models. 


READY 
t  r o 1 1 f  rm 


YOU  ARE  USING  THE  "TROLL"  FORM  FILE  CREATION 
SYSTEM 

(OSTROLL) 

YOU  CAN  NOT  USE  TROLL  UNLESS  YOU  PREALLOCATE  A 
USER  OWNED  FILE  IN  THIS  CLIST. 


IF  ANY  QUESTIONS  SEE 


BOB  OTTO 


ROOM  196 


7-2623 


ENTER  YOUR  FULL  TROLL  DATA  FILE  NAME  (NO 


.usgol. troll. data 


QUOTES  ) 


ENTER  THE  NUMBER  OF  BLOCKS  TO  BE  ALLOCATED 
3000 

DATA  GENERATOR  OUTPUT  FOR  CONTROL  CARDS  AND  MESSAG 
ES  PAGE  0001 

dsd  ou t pu t  =  ( t r l f i  l e ) 

DSD  OUTPUT=(TRLFILE> 
create  quant i t y=3000 

CREATE  QUANT  IT  Y  =  3000 

/* 

usgol 

IEB700I  DATA  GENERATION  HAS  BEEN  SUCCESSFULLY  COMPLETED  COMP 

LETION  CODE  IS  ZERO 

FILE  SYSOUT  NOT  FREED,  IS  NOT  ALLOCATED 
FILE  F  TO  5  F  001  NOT  FREED,  IS  NOT  ALLOCATED 

FILE  FT06F001  NOT  FREED,  IS  NOT  ALLOCATED 

FILE  FT1QF001  NOT  FREED,  IS  NOT  ALLOCATED 

FORMATTING  AN  OSTROLL  FILESYSTEM 
(ASSIGNED  TO  UNIT  10) 

ENTER  TROLL  USERNAME  (A8): 

ENTER  MAXIMUM  RECORD  COUNT  (15): 

•  03000 

FORMATTED  3000  RECORDS  FOR  USGOL 


READY 
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IX“B„  Micro  Computer  Programs  for  Building  Programs  of  TROLL  Commands 


The  micro  computer  can  be  used  as  a  cost  effective  tool  to  create  GOL 
model  equations,  sets  of  TROLL  commands,  and  data  for  TROLL  GOL  data 
files c  Most  of  the  programs  of  TROLL  commands  listed  so  far  in  this 
report  can  be  created  via  micro  computer  programs  that  follow.  The  basic 
idea  is  to  take  advantage  of  standard  GOL  structures  to  combine 
•template'  TROLL  commands  with  real  model  constants  to  create  groups  of 
TROLL  commands  and  model  equations.  Some  programs  will  be  illustrated 
with  input  files  and  output  files  created  by  the  programs.  When  the 
TROLL  programs  have  been  created  (and/or  modified  by  word  processing 
programs  on  the  micro)  they  can  be  telecommunicated  to  TSO  files  for 
subsequent  execution. 

The  programs  are  written  in  Microsoft  (trademark)  BASIC  and  can  be 
execute  on  any  micro  computer  with  a  CP/M  (trademark)  operating  system. 
Remarks  in  the  programs  indicate  where  specific  tasks  are  carried  out. 
Matrices  of  constants  or  numbers  required  by  the  programs  can  be  created 
by  spreadsheet  programs  such  as  SuperCalc  (trademark).  The  micro 
computer  file  conventions  follow  those  of  the  above  named  systems. 
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II-B.l.  Programs  to  Create  TROLL  Commands 


These  programs  actually  create  TROLL  statements  which  perform 
specific  tasks. 


II-B.l. a.  EQWRITE  -  Write  out  TROLL  Equations  from  a  Template  and  an 
Elasticity  Matrix 

This  program  reads  a  ’template'  equation  file  and  a  matrix  of 
elasticities  associated  with  the  file  and  writes  out  a)  TROLL  equations 
for  the  commodities  listed  in  the  matrix,  b)  CEBIT  commands  to  change  the 
elasticities  to  the  values  listed  in  the  matrix,  and  c)  the  TROLL  ’DO’ 
equations  to  calculate  intercepts  for  the  equations.  Once  the  syntax  is 
in  the  ’template’  equation  and  matrix  is  correct,  the  TROLL  syntax  in  all 
of  the  created  equations  will  be  correct.  The  program  has  the  option  of 
not  writing  out  terms  for  constants  with  zero  values  in  the  elasticity 
matrix.  This  can  mean  a  much  simpler  model  structure  when  equation 
systems  can  be  represented  by  sparse  matrices. 


10  CLEAR  5000 

20  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  12,  1993 

30  REM  FILE  - - .TXT  MUST  HAVE: 

40  REM  LINE  1  FILE  NAME  (READ  BUT  NOT  USED  IN  PROGRAM) 

50  REM  LINE  2  VARIABLE  NAME  -  E.G.  USQD** 

60  REM  LINE  3-N  (LIMIT  N=10)  EQUATION  TERMS 
70  REM  INCLUDING  ELASTICITIES  AND  OPERATORS 

80  REM  E.G.  *  ( USF'D**  ’  N/USPN6’  X  )  **USQDt *##  ’  C 

90  REM  WHERE  **  IS  OWN  COMMODITY  CODE  AND  ##  IS 

100  REM  CROSS  COMMODITY  CODE. 

110  REM 

120  REM  FILE  - . PRN  MUST  HAVE  MATRIX  OF  ELASTICITIES; 

130  REM  OWN,  CROSS,  AND  OTHER  TERMS  IN  ORDER  OF  THE 

140  REM  TERMS  IN  THE  VARIABLE  FILE 

150  REM  NOTE  THAT  COMMODITY  CODES  MUST  BE  RIGHT  JUSTIFIED  IN 

160  REM  FIELDS  IN  THE  COLUMN  HEADS  AND  ROW  LABELS 


170  REM 

180  REM - - - SAMPLE  INPUT  FILES - 

190  REM  - - - - - - - — - - - - ______ 

200  REM  LINE  1  -  MD. TXT 
210  REM  LINE  2  -  MD** 

220  REM  LINE  3  -  * (PNG’ X/PD**’ N) **MD**##PC’ C 

230  REM  LINE  4  -  * (PNG'  X (-1 ) /PD**’ N (-1 )  ) **MD**##PL’ C 

240  REM  LINE  5  -  PD**’N 

250  REM - - - - - - - — — - 

260  REM  LINE  1  -  MD. PRN  BF  PK 

270  REM  LINE  2  - 

280  REM  LINE  3  -  BF  .37  0.0 

290  REM  LINE  4  -  PK  .27  0.0 

300  REM - — - - - - - - - - - — 
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310  G0SUB  2280 

320  PRINT  ”  E  Q  W  R  I  T  E  BY  VOR": PRINT 

330  PR I NT "PROGRAM  TO  WRITE  A  SIMPLIFIED  GOL  EQUATION  SET": PRINT 
340  W*  =  " " : R9=0: INPUT"DO  YOU  WANT  TO  THIN  THE  EQUATIONS  (Y  OR  N)"?W* 

350  PRINT: IF  W*="N"  THEN  R9=l 

360  R7=l : PRINT : W*=" " : INPUT "DO  YOU  WANT  TO  WRITE  THE  COEFFICIENT  CREATION  CARDS  (Y  OR  N)";w 
370  PRINT: IF  W$="N"THEN  R7=0 

380  INPUT "ENTER  NAME  OF  EQUATION  FILE  (.TXT  FILE)  ON  DRIVE  '  B’  "5 W*: PRINT 

390  REM - READ  IN  EQUATION  <**.TXT)  FILE - - - 

400  PR I NT "READING  EQUATION  FILE "SPRINT 
410  F*="B:  "+W*+" . TXT" : OPEN" I  ",  1 , Ft 
420  IF  R7= 1  THEN  GOTO  430  ELSE  GOTO  440 
430  F*="B: "+W*+"C. TXT" : 0PEN"0" ,  2,  F* 

440  DIM  V* ( 1 , 10) : L0=0 
450  LINE  I NPUT #  1  ,  X* 

460  LO=LO+ 1 

470  LINE  INPUT# 1 , V* ( 1 , LO) 

480  IF  EOF  < 1 ) THEN  GOTO  500 
490  PRINT  V* ( 1 , L0> : GOTO  460 
500  PRINT  V*(1,L0) : CLOSE  1 
510  18=0 

520  REM - READ  IN  ELASTICITY  (**.PRN)  FILE-— - — - - 

530  PRINT:F*=”B:  "+W*+ " . PRN" : PR I NT "READ I NG  ELASTICITY  F I LE " :  PR  I  NT 
540  OPEN" I " , 1 , F*: F*="B: "+W*+"R. TXT" 

550  DIM  C* ( 1 . 25) , D ( 19, 25) , R*  < 1 , 19) 

560  LINE  INPUT#1,W*: J0=LEN(W*)/9-l 

570  FOR  J  =  1  TO  JO:U*=MID* <W*, J*9+l,9> : GOSUB  920 

580  C*  (  1 , J ) =U* 

590  PR  I NT "COLUMN  LABEL  ";J,C*(1,J> 

600  NEXT  J : 10=0 
610  LINE  I NPUT # 1 , W* 

620  PRINT 

630  LINE  INPUT#1,W»: 10=10+1 
640  IF  EOF ( 1 )  THEN  CLOSE  1:18=1 
650  U*=LEFT*(W*,9) : GOSUB  920 
660  R* ( 1 , 10) =U* 

670  PRINT"ROW  (COMMODITY)  LABEL  " 5 10, R* ( 1 , 10) 

680  FOR  J=1  TO  JO 
690  U*=MID* ( W*, J*9+l , 9) 

700  GOSUB  920 
710  D ( 10, J ) =VAL <U*> 

720  NEXT  J 

730  IF  10=19  AND  J0=13  THEN  GOTO  740  ELSE  GOTO  890 

740  LINE  I NPUT # 1 , W* : I F  EOF ( 1 )  THEN  CLOSE  l:I8=l:G0T0  890 

750  18=0 

760  JO=LEN (W*) /9: PRINT 

770  FOR  J=1  TO  JO: U*=MID* (Wt, ( J-l ) *9+1 , 9) : GOSUB  920 
780  C$ ( 1 , J+13) =U* 

790  PR  I NT " COLUMN  LABEL  " ; J  +  13, C* ( 1 c J+13) 

800  NEXT  J: 10=0: LINE  INPUT#!, W* 

810  LINE  INPUT  #1 , W*: 10=10+1 
820  IF  EOF ( 1 )  THEN  CLOSE  1:18=1 
830  FOR  J  =  1  TO  JO 

840  U*=MID*(W*, (J-l)*9+l,9) : GOSUB  920 
850  D  < I O , J  + 1 3 ) =VAL ( U$ ) 

860  NEXT  J 

870  IF  I B= 1  THEN  J0=13+J0 
880  IF  18=0  THEN  GOTO  810 

890  IF  18=0  THEN  GOTO  630  ELSE  GOTO  1030 
900  GOTO  1030 

910  REM - SUBROUTINE  TO  REMOVE  LEFT  BLANKS  FROM  U$ 

920  Z$=U$ 

930  IF  LEFT* <Z», 1 ) ="  "THEN  Z*=RI GHT* ( Z* , LEN < Z* ) - 1 )  ELSE  950 
940  GOTO  930 
950  U*=Z*: RETURN 

960  REM - SUBROUTINE  TO  REMOVE  LEFT  BLANKS  FROM  W* 

970  IF  LEFT* (W* , 1 ) ="  "THEN  GOTO  980  ELSE  GOTO  990 
980  W*=RIGHT* (W*, LEN (W*) -1 ) : GOTO  970 
990  RETURN 


i 

1 

1 

! 
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1 

1 

1 

! 

: 
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1 000 

1010 

1 020 

1030 

1 040 

1  050 

1 060 

1070 

1080 

1090 

1 1 00 

1  1 10 

1120 

1  1 30 

1140 

1150 

1160 

1170 

1 1 80 

1  1 90 

1200 

1210 

1220 

1 230 

1240 

1250 

1260 

1270 

1280 

1290 

1 300 

1310 

1 320 

1 330 

1340 

1350 

1360 

1370 

1 380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1 600 

1610 

1620 

1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 


PRINT" - -+ - + - - - -t- - - - - — + - - - + - +  " 

PR  I  NT #  1 ,  " - + - — + — - + - + - + - +•■ 

RETURN 
GOSUB  2280 

REM - WRITE  MODEL  EQUATIONS— - - - 

OPEN "O"  , 1 , Ft: PRINT" WR I TE  EQUAT I ONS " : PR I NT : J5=0 

FOR  1=1  TO  10: IF  R* (1 , I ) =C* < 1 , I )  THEN  J5=J5+l:NEXT  I 

PR  I NT " BEG I NN I NG  OF  FILE" : PRINT#1 , "BEGINNING  OF  FILE" 

GOSUB  1000 

FOR  1=1  TO  IO:L*="" 

w$=vt  ( l ,  l )  +" :  "+v*  ( l ,  i ) +••  ’  n  =  "+v*  ( l ,  l )  +"  I  ’  C" 

X  : Y*=R$ (1,1): GOSUB  1990 

F=l: GOSUB  2030 

IF  R9=0  AND  D  ( I , 1 ) =0  THEN  GOTO  1170 

W3>=0$ (1,2): x*="*$": Y*=R* (1,1):  GOSUB  1990 

X $="##" : Y$=C* (1,1): GOSUB  1990 

F=l: GOSUB  2030 

IF  J5<2  THEN  GOTO  1240 

FOR  J=2  TO  J5 

IF  R9=0  AND  D ( I , J ) =0  THEN  GOTO  1230 
W*=V$ (1,2): X*="*$" : Y$=R* (1,1): GOSUB  1990 
X*="##":Y*=C*(1,J) : GOSUB  1990 
F=l: GOSUB  2030 
NEXT  J 

FOR  L=3  TO  LO 

IF  J5-0  THEN  J=L+ J5- 1  ELSE  J=L+J5-2 

W4=V* ( 1 , L> : X*="**" : Y*=R* (1,1) : GOSUB  1990 

IF  J>JO  THEN  GOTO  1300 

IF  R9~0  AND  D  < I , J ) =0  THEN  GOTO  1310 

x*="##":y*=c*<i,J):gosub  1990 

F=l: GOSUB  2030 

NEXT  L 

W*=" , ":F=l: GOSUB  2030 
PRINT  L$: PRINT#1 , L*: NEXT  I 
GOSUB  2280 

REM  — - - - WRITE  COEFFICIENTS - - - - - - - — - - 

PRINT"WRITE  COEFFICIENTS" : PRINT 
GOSUB  1000 

IF  R7=l  THEN  PR I NT#2, "BEGINNING  OF  FILE" 

IF  R7=  1  THEN  L*=,,,‘ 

X  $=LEFT  * (V* ( 1 , 1 ) , 4) 

IF  R7=l  THEN  GOTO  1420  ELSE  GOTO  1450 
FOR  1=1  TO  10 

W*=X*+R*(1, I)+" I’C  0,  ":F=2: GOSUB  2030 

NEXT' I 

FOR  J=1  TO  JO 
FOR  1=1  TO  10 

IF  R9=0  AND  D ( I , J ) =0  THEN  GOTO  1520 
W*=X*+R* (1,1) +C*  < 1 , J ) + "  "+STR* (D ( I , J ) ) +" , " 

PRINT  W*:PRINT#1,W* 

IF  R7=l  THEN  GOTO  1510  ELSE  GOTO  1520 
W*=X*+R*<1, I)+C*<1, J)+"  0,  ":F=2: GOSUB  2030 

NEXT  I,J 

IF  R7=l  THEN  GOTO  1540  ELSE  GOTO  1570 
PRINT#2,L*:PRINT#2, "END  OF  FILE":CLOSE  2 

GOSUB  2280 

REM  - - - WRITE  INTERCEPT  CALCULATION  STATEMENTS— - 

PR I NT "WRITE  INTERCEPT  CALCULATION  STATEMENTS" : PRINT 

GOSUB  1000 

FOR  1=1  TO  IO:L*=M" 

W$="DOCORE  INTERCPT="+V* ( 1 , 1 ) +"/ ( " : X*="»* " : Y*=R* (1,1): GOSUB  1990 
GOSUB  2140 
F=l: GOSUB  2030 
K 1  =0 

IF  R9=0  AND  D ( I , 1 ) =0  THEN  GOTO  1700 

W*=vt ( 1 , 2) : X*="**" : Y*=R* (1,1): GOSUB  1990 

W*=RIGHT*(W$,LEN(W*)-1>  :K1  =  1 

X*="##":Y*=C*<1, 1) :GOSUB  1990 

GOSUB  2140 

F=l: GOSUB  2030 

IF  J5< 2  THEN  GOTO  1800 

FOR  J=2  TO  J5 

IF  R9=0  AND  D  < I , J ) =0  THEN  GOTO  1790 
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1730  W*=V* ( 1 , 2) : X*="**" ; Y*=R* ( 1 , I K G0SUB  1990 

1740  IF  K 1=0  THEN  GOTO  1750  ELSE  GOTO  1760 

1750  W*=RIGHT* <W*, LEN <W*) -1 > :K1=1 

1760  X*="##" : Y*=C* ( 1 , J ) : GOSUB  1990 

1770  GOSUB  2140 

1780  F=l: GOSUB  2030 

1790  NEXT  J 

1800  FOR  L=3  TO  LO 

1810  IF  J5=0  THEN  J=L+J5-1  ELSE  J=L+J5-2 

1820  W*=V* < 1 , L> : X*="*t" : Y*=R* < 1 , I > : GOSUB  1990 

1830  IF  J>J0  THEN  GOTO  1860 

1840  IF  R9=0  AND  D ( I , J ) =0  THEN  GOTO  1900 

1850  X*="##" : Y*=C* < 1 , J ): GOSUB  1990 

1860  IF  K 1 =0  THEN  GOTO  1870  ELSE  GOTO  1880 

1870  W*=RIGHT* ( W* , LEN ( W* ) - 1 ) S  Kl  =  l 

1880  GOSUB  2140 

1890  F=l: GOSUB  2030 

1900  NEXT  L 

1910  WS=" ) I " : F=1 ; GOSUB  2030 
1920  PRINT  L*:PRINT#1,L*:L*="“ 

1930  W*="DO  "+V* ( 1 , 1 ) +" I ’ C=MEAN ( INTERCPT) » " 1 X*="**" : Y*=R* ( 1 , I > : GOSUB  1990 

1940  F= 1 S  GOSUB  2030 

1950  PRINT  L*: PR I NT# 1 ,  L*:  NEXT  I 

1960  GOSUB  1000 

1970  PR I NT " END  OF  FILE" : PRINT#1 , "END  OF  FILE":CLOSE  1 : END 

19B0  REM  — — — —SUBROUTINE  TO  REPLACE  STRING  X*  WITH  STRING  Y*  IN  STRING  W*- 
1990  P0= I NSTR ( W* ,  X  * ) 

000  IF  P0=0  THEN  RETURN 
010  MID* <W*, PO) =Y»: GOTO  1990 

2020  REM  — — - —SUBROUTINE  TO  PRINT  LINE  IF  NEW  ONE  >  72  CHARS. - 

2030  IF  LEN (L*) +LEN <W*> <=72  THEN  GOTO  2050  ’PRINT  IF  LEN >80 
2040  PRINT  l*:print#f,l*:l*="" 

2050  L*=L*+W*: RETURN 

2060  REM  - — - — ——SUBROUTINE  TO  REMOVE  STRING  X*  FROM  STRING  W* - 

2070  P0= I NSTR ( W* , X* ) 

2080  IF  P0=0  THEN  RETURN 

2090  IF  Pl=l  THEN  W*=R I GHT* < W* , LEN < W* ) -LEN ( X* ) ) 

2100  IF  PO=LEN  (W*) -LEN  (  X*)  4-1  THEN  W*=LEFT* < W* , LEN ( W* ) -LEN < X* > >  ELSE  GOTO  2130 
2110  GOTO  2070 

2120  REM  - - -SUBROUTINE  TO  REMOVE  SUFFIXES  FROM  INTERCEPT  ’DO’  STATEMENTS 

2130  W*=LEFT * ( W* , PO- 1 ) +R I GHT* ( W* , LEN  < W* ) -LEN (X*) -PO+1 ) : GOTO  2070 

2140  X*=" ’ POLN" : GOSUB  2070 

2150  X*=" ’ FOLP" : GOSUB  2070 

2160  X*=" ’NPOL" : GOSUB  2070 

2170  X*="’DEF": GOSUB  2070 

2180  X*=" ’ XNS" : GOSUB  2070 

2190  X*=" ’ NXS" 1 GOSUB  2070 

2200  X*=" ’ POL" l GOSUB  2070 

2210  X*^1’  XN"S  GOSUB  2070 

2220  X*="’ XP": GOSUB  2070 

2230  X*=“’ NX": GOSUB  2070 

2240  X*=" ’ N" : GOSUB  2070 

2250  X*=" ’ X" : GOSUB  2070 

2260  RETURN 

2270  REM  — - — —SUBROUTINE  TO  CLEAR  SCREEN - - - - - - - - 

2280  PRINT  CHR* (27) ?CHR*( 58) : RETURN 


The  purpose  of  the  program  EQWRITE  is,  given  an  appropriate  input  ’template' 
equation  and  matrix  of  elasticities,  to  write  out  the  full  set  of  TROLL 
equations  for  all  GOL  commodities,  the  full  set  of  elasticity  entry  statements 
and  the  full  set  of  TROLL  'DO*  statements  needed  to  calculate  the  intercepts 
for  these  equations.  This  amounts  to  writing  out  most  of  the  TROLL  commands 
concerned  with  any  set  of  equations  from  a  minimum  amount  of  information  about 
the  equation  structure  in  the  template  equation  and  information  about  the 
elasticities  in  the  input  matrix. 
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USMD.TXT 
USMDSS 

♦ (USPNG*  X/USPD**’ N)  ♦♦USMD**##’  C 
*  (LJSPNG’  X  (-1 )  /USPD**’ N (-)  >  ♦♦USMD**##’  C 
♦USPD**’ N 


Input  equation  template  file. 


Input  matrix  file  of  elasticities. 

I 


USMD. PRN 

PC 

PL 

BF 

.37 

0 

PK 

.27 

0 

ML 

0 

0 

DM 

0 

0 

PM 

0 

0 

PE 

0 

0 

WH 

0 

0 

CN 

1 

0 

CG 

1 

0 

RI 

0 

0 

SB 

0 

0 

OS 

0 

0 

SM 

1 

0 

SO 

.02 

0 

OM 

1 

.4 

00 

0 

0 

DB 

0 

0 

DC 

0 

0 

DO 

0 

0 

BEGINNING  OF  FILE 


The  $$'s  in  the  equation  template  are 

replaced  by  commodity  codes  in  the  left 

row  of  the  input  matrix  while  the 

are  replaced  by  the  codes  over  the 

columns  of  the  matrix.  The  program  gives 

the  user  an  option  of  excluding 

equation  terms  with  zero  valued  coefficients. 


Example  output  file  1. 

i _ 


USMDBF:  USMDBF’N  =  USMDBFI ’ C* (USPNG’ X/USPDBF’ N>  ♦♦USMDBFPC’ C 
* ( USPNG ’ X ( - 1 ) /USPDBF ’  N  <-) ) ♦♦USMDBFPL ’ C , 

USMDPK:  USMDPK’N  -  USMDPKI  ’  C*  (USPNG’  X/USPDPK’  N)  ♦♦USMDPKPC’  C 
♦(USPNG' X (-1) /USPDPK’N(-) ) ♦♦USMDPKPL’ C, 

USMDML:  USMDML’N  »  USMDMLI ’ C* (USPNG’ X/USPDML’ N) ♦♦USMDMLPC’ C 
♦(USPNG' X (-1) /USPDML’N(-) ) ♦♦USMDMLPL ’ C , 

USMDDM:  USMDDM’N  »  USMDDMI ’ (USPNG’ X/USPDDM’ N) ♦♦USMDDMPC’ C 
♦ (USPNG’ X (-1 ) /USPDDM’ N (-) ) ♦♦USMDDMPL ’ C, 

USMDPM:  USMDPM’N  ■  USMDPMI  ’  C*  (USPNG’  X/USPDPM’ N>  ♦♦USMDPtiPC’  C 
♦ (USPNG' X (-1) /USPDPM’N(-) ) ♦♦USMDPMPL’ C, 

USMDPE:  USMDPE’N  *  USMDPEI ’ C* (USPNG’ X/USPDPE’ N) ♦♦USMDPEPC’ C 

♦  <  USPNG ’  X  ( - 1  > /USPDPE ’ N ( - ) ) ♦♦USMDPEPL ’ C , 

USMDWH!  USMDWH’N  -  USMDWHI ’ C* (USPNG’ X/USPDWH’ N) ♦♦USMDWHPC’ C 
♦(USPNG’ X (-1) /USPDWH’N(-) ) ♦♦USMDWHPL ’ C, 

USMDCN:  USMDCN’N  =  USMDCN I ’ C* ( USPNG ’ X /USPDCN ’ N ) ♦♦USMDCNPC ’ C 
♦(USPNG’ X (-1 ) /USPDCN’ N(-) ) ♦♦USMDCNPL ’ C, 

USMDCG:  USMDCG’N  *  USMDCGI ’ C* (USPNG’ X/USPDCG’ N> ♦♦USMDCGPC’ C 

♦  (USPNG’ X (-1) /USPDCG’N(-) ) ♦♦USMDCGPL’ C, 

USMDRI:  USMDRI’N  =  USMDRI I ’ (USPNG’ X/USPDRI ’ N> ♦♦USMDRIPC’ C 

♦  (USPNG’ X (-1) /USPDRI’N(-) ) ♦♦USMDRI PL’  C, 

USMDSB:  USMDSB’N  =  USMDSBI ’ C* (USPNG’ X/USPDSB’ N) ♦♦USMDSBPC’ C 
♦(USPNG’ X (-1) /USPDSB’N(-) > ♦♦USMDSBPL’ C, 

USMDOS:  USMDOS’N  =  USMDOSI ’ C* (USPNG’ X /USPDOS’ N) ♦♦USMDOSPC’ C 
♦ (USPNG’ X ( — 1 > /USPDOS’ N(-) ) ♦♦USMDOSPL’ C, 

USMDSM:  USMDSM’N  =  USMDSMI ’ C* (USPNG’ X/USPDSM’ N) ♦♦USMDSNPC’ C 
♦ (USPNG’ X (-1 ) /USPDSM’ N (-) ) ♦♦USMDSMPL ’ C, 

USMDSO:  USMDSO’N  =  USMDSOI ’ C* (USPNG’ X/USPDSO’ N) ♦♦USMDSOPC’ C 

♦  (USPNG’ X (-1) /USPDSO’N(-) ) ♦♦USMDSOPL’ C, 

USMDOM:  USMDOM’N  =  USMDOMI’C^  (USPNG’  X/USPDOM’N)^USMDOMPC’C 
♦(USPNG’ X (-1 ) /USPDOM’ N (-) ) ♦♦USMDOMPL ’ C, 

USMDOO:  USMDOO’N  *  USMDOOI ’ C* (USPNG’ X/USPDOO’ N) **USMDDOPC’ C 

♦  <  USPNG ' X ( - 1 ) /USPDOO ’ N  < - ) ) ♦♦USMDOOPL ’ C , 

USMDDB:  USMDDB’N  =  USMDDBI ’ C* (USPNG’ X/USPDDB’ N) **USMDDBPC’ C 
♦(USPNG’ X (-1) /USPDDB ’ N ( — ) ) ♦♦USMDDBPL ’ C, 

USIiDDO:  USMDDO’N  =  USMDDOI  ’  C*  (USPNG'  X /USPDDO’  N>  ♦♦USMDDOPC’  C 
♦ (USPNG’ X (-1) /USPDDO’ N(-) ) ♦♦USMDDOPL’ C, 


TROLL  equations 

/ 
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USMDBFPC  .37, 
USMDPKPC  .27, 
USMDMLPC  0, 
USMDDMPC  0, 
USMDPMPC  0, 
USMDPEPC  0, 
USMDWHPC  0, 
USMDCNPC  1 , 
USMDCGPC  1 , 
USMDRIPC  0, 
USMDSBPC  O, 
USMDOSPC  0, 
USMDSMPC  1 , 
USMDSOPC  .02, 
USMDOMPC  1 , 
USMDOOPC  0, 
USMDDBPC  O, 
USMDDOPC  0, 
USMDBFPL  0, 
USMDPKPL  0, 
USMDMLPL  0, 
USMDDMPL  0, 
USMDPMPL  0, 
USMDPEPL  0, 
USMDWHPL  0, 
USMDCNPL  O, 
USMDCGPL  0, 
USMDRIPL  O, 
USMDSBPL  O, 
USMDOSPL  0, 
USMDSMPL  O, 
USMDSOPL  0, 
USMDOMPL  .4, 
USMDOOPL  0, 
USMDDBPL  0, 
USMDDOPL  0, 


Elasticity  entry  commands 


Equations  to  calculate  intercepts 
from  elasticities  and  historical  data 


DOCDRE  INTERCPT-USMDBF/ < (USPNG/USPDBF) **USMDBFPC’ C 
* ( USPNG  « - 1 ) /USPDBF  < - >  ) **USMDBFPL ‘C) ; 

DO  USMDBF I  ’  OMEAN  (  I NTERCPT )  t 

DOCORE  I NTERCPT *USMDPK / ( <  USPNG/USPDPK ) **USMDPKPC “ C 

*  ( USPNG ( - 1 ) /USPDPK ( - ) ) **USMDPKPL  ’  C )  I 
DO  USMDPKI’C*MEAN<  INTERCPT).; 

DOCORE  INTERCPT-USMDML/ ( (USPNG/USPDML) ♦♦USMDMLPC C 
* (USPNG (-1 ) /USPDML(-) ) **USMDMLPLF C) i 
DO  USMDML I ’ C-MEAN  < I NTERCPT ) \ 

DOCORE  I NTERCPT »USMDDM/ < (USPNG/USPDDM) **USMDDMPC’ C 
* (USPNG (-1 > /USPDDM(-) ) **USMDDMPL’  C) J 
DO  USMDDM I ’ C=MEAN < I NTERCPT ) | 

DOCORE  I NTERCPT =USMDPM / ( (USPNG/USPDPM) **USMDPMPC' C 

*  < USPNG  <  — 1 )  /USPDPM  <  —  >  )*-*USMDPnPL'C)  ; 

DO  USMDPMI ’C=MEAN< INTERCPT) ; 

DOCORE  INTERCPT=USMDPE/ ( (USPNG/USPDPE) **USMDPEPC’ C 

*  < USPNG ( - 1 ) /USPDPE ( - ) ) **USMDPEPL ’ C ) ; 

DO  USMDPEI ’C=MEAN< I NTERCPT ) ; 

DOCORE  INTERCPT »USMDWH/ ( (USPNG/USPDWH) **USMDWHPC’ C 

*  <  USPNG ( - 1 ) / USPDWH ( - ) ) **USMDWHPL ’ C ) ; 

DO  USMDWH I ’ C=MEAN ( I NTERCPT )  ; 

DOCORE  I NTERCPT “USMDCN/ ( <USPNG/USPDCN) **USMDCNPC' C 

*  <  USPNG ( - 1 ) /USPDCN < - ) ) **USMDCNPL ’ C) J 
DO  USMDCN I  ’  C=»MEAN  ( I  NTERCPT )  ; 

DOCORE  I NTERCPT =USMDCG/ ( ( USPNG/USPDCG ) **USMDCGPC ’ C 
* (USPNG (-1 ) /USPDCG  <-) ) **USMDCGPL’C) ; 

DO  USMDCG I ’ C=MEAN  < I NTERCPT ) ; 

DOCORE  INTERCPT=USMDRI/ < (USPNG/USPDRI ) **USMDRIPC’ C 
* (USPNG  <  — 1 ) /USPDRI  (-) )**USMDRIPL’C) 5 
DO  USMDRI I ’C=f1E AN  ( INTERCPT)  ; 

DOCORE  INTERCPT  =USMDSB/ ( (USPNG/USPDSB) **USMDSBPC’ C 
* ( USPNG  < - 1 ) /USPDSB ( - ) ) **USMDSBPL ’ C ) J 
DO  USMDSBI ’C=MEAN( INTERCPT) ; 

DOCORE  INTERCPT=USMDOS/ ( (USPNG/USPDOS) **USMDOSPC"  C 
* (USPNG (-1) /USPDOS(-) )**USMDOSPL’C) 5 
DO  USMDOSI ’C=MEAN( INTERCPT)  ; 

DOCORE  INTERCPT  =USMDSM/ ( (USPNG/USPDSM) **USMDSMPC'  C 
* (USPNG (-1 ) /USPDSM (-> ) **USMDSNPL ’ C)  I 
DO  USMDSli  I  ’  C=MEAN  ( I  NTERCPT )  ; 
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DOCORE  I NTERCPT=USMDSO/ <  (  USPNG/USPDSO ) ♦♦USMDSOPC ’ C 
*  (USPNG  (-1 )  /USPDSO (-)  )  ♦♦USMDSOPL’ C)  ; 

DO  USMDSOI ’ C=MEAN ( INTERCPT) ; 

DOCORE  INTERCPT*USMDOM/ < (USPNG/USPDOM) ♦♦USMDOMPC’ C 
* ( USPNG <  - 1 ) /USPDOM < - ) ) ♦♦USMDOMPL ’ C ) ; 

DO  USMDOMI ’ C=MEAN ( INTERCPT) ; 

DOCORE  INTERCPT=USMDOQ/ ( (USPNG/USPDQO) ♦♦USMDOOPC’ C 
* (USPNG (-1 ) /USPDOO (-) ) ♦♦USMDQQPL "  C)  ; 

DO  USMDOO I ’ C=MEAN < I NTERCPT ) ; 

DOCORE  INTERCPT=USMDDB/ ( (USPNG/USPDDB) ♦♦USMDDBPC’ C 
* (USPNG (-1 ) /USPDDB (  — ) ) ♦♦USMDDBPL’ C)  I 
DO  USMDDBI ’ C“MEAN ( INTERCPT) ; 

DOCORE  INTERCPT=USMDDQ/ ( (USPNG/USPDDO) ♦♦USMDDOPC’ C 
* ( USPNG ( - 1 ) /U3PDD0 ( - ) ) ♦♦USMDDOPL ’ C ) ! 

DO  USMDDOI ’C=MEAN( INTERCPT) J 


END  OF  FILE 


BEGINNING  OF  FILE 
USMDBFI’C  0,  USMDPKI’C 
USMDPE 1  ’  C  0,  USMDWHI’C 
USMDSBI’C  0,  USMDOSI ’ C 
USMDOO I ’ C  0,  USMDDBI ’ C 
USMDMLPC  0,  USMDDMPC  0, 


USMDCGPC  0, 
USMDOMPC  0, 
USMDMLPL  0, 
USMDCGPL  0, 
USMDOMPL  0, 
END  OF  FILE 


USMDRIPC  0, 
USMDOOPC  0, 
USMDDMPL  0, 
USMDRIPL  0, 
USMDOOPL  0, 


0,  USMDMLI’C 
0,  USMDCNI’C 
0,  USMDSMI ’ C 
0,  USMDDOI’ C 
USMDPMPC  0, 
USMDSBPC  0, 
USMDDBPC  0, 
USMDPMPL  0, 
USMDSBPL  0, 
USMDDBPL  0, 


Elasticity  creation  commands 

l/ 


0,  USMDDMI ’ 
0,  USMDCGI ’ 
0,  USMDSOI’ 
0,  USMDBFPC 
USMDPEPC  0, 
USMDOSPC  0, 
USMDDOPC  0, 
USMDPEPL  0, 
USMDOSPL  0, 
USMDDOPL  0, 


C  0,  USMDPMI 
C  0,  USMDRII 
C  O,  USMDOMI 
0,  USMDPKPC 
USMDWHPC  0, 
USMDSMPC  0, 
USMDBFPL  0, 
USMDWHPL  0, 
USMDSMPL  0, 


’C  0, 

’C  0, 

’C  0, 

0, 

USMDCNPC 

USMDSOPC 

USMDPKPL 

USMDCNPL 

USMDSOPL 


0, 

0, 

0, 

0, 

0, 


Two  examples  of  output  files  created  from  the  two  input  files  are  presented. 

The  first  example  did  not  use  the  option  of  'thinning'  out  the  zero 
value  coefficients  while  the  second  example  exercised  this  option.  Both  give  the 
coefficients  for  the  elasticity  creation  programs.  The  outputs  from  this 
example  are  the  basic  ingredients  for  the  domestic  margin  part  of  the  file  USGOLMA 
presented  earlier  in  this  report. 


BEGINNING  OF  FILE 


/ 


Example  output  file  2, 


USMDBF: 

usmdpk: 

usmdml: 

usmddm: 

usmdpm: 

usmdpe: 

usmdwh: 

usmdcn: 

usmdcg: 

usmdri: 

usmdsb: 

USMDOS: 

USMDSM: 

USMDSO: 

usmdom: 

♦(USPNG’ 

USMDOO: 

USMDDB: 

usmddo: 


USMDBF ’N 
USMDPK ’N 
USMDML’ N 
USMDDM’ N 
USMDPM’ N 
USMDPE’ N 
USMDWH’ N 
USMDCN ’N 
USMDCG ’N 
USMDRI ’N 
USMDSB’ N 
USMDOS ’N 
USMDSM’ N 
USMDSO’ N 
USMDOM’ N 
X (-1) /USP 
USMDOO’ N 
USMDDB ’N 
USMDDO ’N 


USMDBF I 
USMDPK I 
USMDML I 
USMDDMI 
USMDPMI 
USMDPE I 
USMDWH I 
USMDCN I 
USMDCGI 
USMDRII 
USMDSB I 
USMDOSI 
USMDSMI 
USMDSOI 
USMDOMI 
OM’N(-) ) 
USMDOO I 
USMDDBI 
USMDDOI 


’ C* (USPNG’ 
’C# (USPNG’ 
’C, 

’C, 

’C, 

’C, 

'C, 

’ C* (USPNG’ 
’C# (USPNG’ 
’C, 

’C, 

’C, 

’ C* (USPNG’ 
’ C* (USPNG’ 
’ C* (USPNG’ 
♦♦USMDOMPL 
’C, 

’C, 

'C, 


X/USPDBF’ 

X/USPDPK' 


X/USPDCN’ 

X/USPDCG’ 


X/USPDSM’ 

X/USPDSO’ 

X/USPDOM’ 

’C, 


N) ♦♦USMDBFPC’ C, 
N) ♦♦USMDPKPC’ C, 


N) ♦♦USMDCNPC’ C, 
N) ♦♦USMDCGPC’ C, 


N) ♦♦USMDSMPC’ C, 
N) ♦♦USMDSOPC’ C, 
N) ♦♦USMDOMPC’ C 
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USMDBFPC  .37, 
USMDF'KF'C  .27, 
USMDCNFC  1 , 
USMDCGF'C  1  , 
USMDSMPC  1 , 
USMDSOPC  .02, 
USMDOMPC  1 , 
USMDOMPL  .4. 


DOCORE  INTERCPT =USMDBF/ (  < USPNG/USPDBF ) **USMDBFPC 7  C )  ; 
DO  USMDBFI 7 C=MEAN < INTERCPT) ; 

DOCORE  I NTERCPT =USMDPh/ (  (USPNG/USPDPK) **USMDPKPC7 C)  ; 
DO  USMDFK1 7 C=MEAN < INTERCPT) ; 

DOCORE  I NTERCPT=USMDML /  (6  : 

DO  USMDMLI 7 C=MEAN< INTERCPT) ; 

DOCORE  I NTERCPT=USMDDM/  (0 ; 

DO  USMDDMI 7 C=MEAN< INTERCPT) ; 

DOCORE  I NTERCPT=USMDPM/  (i)  ; 

DO  USMDPMI 7 C=MEAN < INTERCPT) : 

DOCORE  I  NTERCPT =USMDF'E/  (i)  ; 

DO  USMDPEI 7 C=MEAN < INTERCPT) ; 

DOCORE  INTERCPT=USMDWH/ (|)  ; 

DO  USMDWHI 7 C=MEAN ( INTERCPT) ; 

DOCORE  I NTERCPT =USMDCN/ (  ( USPNG/USPDCN ) **USMDCNPC7  C>  ; 
DO  USMDCNI 7 C=MEAN ( INTERCPT)  ; 

DOCORE  INTERCPT=USMDCG/ <  (USPNG/USPDCG) **USMDCGPC7  C)  ; 
DO  USMDCGI 7 C=NEAN ( INTERCPT)  ; 

DOCORE  I NTERCPT =USMDR I / (0  J 
DO  USMDRI I  7 C=MEAN ( INTERCPT)  ; 

DOCORE  INTERCPT=USMDSB/ (i)  ; 

DO  USMDSBI 7 C=MEAN < INTERCPT) ; 

DOCORE  I  NTERCPT =USMDOS/  (i)  ; 

DO  USMDOSI 7 C=MEAN ( INTERCPT) ; 

DOCORE  I  NTERCPT =LJSMDSM/  (  (USPNG/USPDSM)  **USMDSMPC"  C)  ; 
DO  USMDSMI 7 C=MEAN ( INTERCPT) ? 

DOCORE  I NTERCPT=USMDSQ/  (  (USPNG/USF’DSO)  **USMDSOPC7  C)  5 
DO  USMDSOI 7 C=MEAN ( INTERCPT) 5 

DOCORE  INTERCPT=USMDOM/  (  < USPNG/USPDOM ) **USMDOMPC 7  C 
* (USPNG (-1 ) /USPDOM <-)  ) **USMDOMPL  7  C ) ; 

DO  USMDONI 7 C=MEAN( INTERCPT) : 

DOCORE  I NTERCPT =USMDOO/ 0)  ; 

DO  USMDOOI 7 C=MEAN( INTERCPT) ; 

DOCORE  INTERCPT=USMDDB/ (')  ; 

DO  USMDDBI 7 C=MEAN ( INTERCPT) ; 

DOCORE  I NTERCPT=USMDDO/  (»)  ; 

DO  USMDDOI 7 C=MEAN ( INTERCPT) ; 


END  OF  FILE 


BEGINNING  OF 
USMDBF I  7  C  0, 
USMDPEI 7 C  0, 
USMDSBI 7 C  0, 
USMDOO I  7  C  0, 
USMDCNFC  0, 
END  OF  FILE 


FILE 

USMDF'K  1 7  C 
USMDWHI 7  C 
USMDOSI 7  C 
USMDDBI 7  C 
USMDCGPC  0 


0,  USMDML 1 7  C  0,  USMDDM I  7  C  0,  USMDPMI’C  0, 

0,  USMDCNI 7 C  0,  USMDCG I  7  C  0,  USMDRI I 7C  0, 

0,  USMDSM I  7  C  O,  USMDSOI 7 C  0,  USMDOMI’C  0, 

0,  USMDDOI 7 C  0,  USMDBFPC  0,  USMDPKPC  O, 

USMDSMPC  0,  USMDSOPC  O,  USMDOMFC  0,  USMDOMPL  0, 
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II“B.l.b.  EQDUPLXC  -  Write  out  TROLL  Identity  Equations  from  a  Template 
and  Equation  Summary  Matrix 

TROLL  equations  which  do  not  have  constants  or  elasticities  but  do 
have  different  terms  can  be  automatically  created  with  this  program.  If 
a  particular  commodity  does  not  require  a  particular  term  in  its  equation 
(a  zero  in  the  matrix)  the  term  need  not  be  written  out  in  the  equation. 
Between  this  program  and  EQWRITE,  all  GOL  model  equations  can  be 
automatically  written  out  on  a  micro  computer  disk  file  once  a  template 
and  input  matrix  have  been  created. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  14,  1983 

20  CLEAR  5000 

30  REM  THIS  PROGRAM  REQUIRES  2  INPUT  FILES: 

40  REM  AN  EQUATION  MASTER  FILE  < — .TXT)  AND  A  ZERO-ONE  MATRIX  FILE  ( — . PRN) 


50  REM 

60  REM  FILE  - .TXT  MUST  HAVE: 

70  REM  LINE  1  FILE  NAME 

80  REM  LINE  2  VARIABLE  NAME  -  E.G.  USQD** 

90  REM  LINE  3  REST  OF  VARIABLE  NAME  AND  EQUAL  SIGN 
100  REM  E.G.  DEF  ==  ABSV’F 

110  REM  LINE  4— N  (LIMIT  N=15>  ONE  VARIABLE  IN  EACH  LINE 
120  REM  E.G.  —USQD** ’ N 

130  REM  REMEMBER  TO  INCLUDE  ALL  NECESSARY  PARENTHESES  WITH 

140  REM  WITH  VARIABLES  OR  ON  EXTRA  LINES 

150  REM 

160  REM  FILE  - . PRN  MUST  HAVE: 

170  REM  LINE  1  FILE  NAME  PLUS  DESIRED  COLUMN  LABELS 
180  REM  LINE  2  BLANK  LINE 

190  REM  LINE  3-N  ROWS  FOR  EACH  GOL  COMMODITY  WITH  A  1  OR  0  FOR  EACH  TERM  OR 

200  REM  EACH  VARIABLE  IN  LINES  4-N,  A  ’ 1 5  MEANS  THAT 

210  REM  THE  VARIABLE  SHOULD  BE  INCLUDED  IN  THE  EQUATION 

220  REM  A  'O’  MEANS  THAT  A  VARIABLE  IS  NOT  INCLUDED 

230  REM 

240  REM - - - -SAMPLE  INPUT  FILES  FOLLOW: 


250  REM 


260 

REM 

LINE 

1 

- 

PS. TXT 

270 

REM 

LINE 

2 

- 

PS** 

280 

REM 

LINE 

3 

- 

'DEF  == 

290 

REM 

LINE 

4 

- 

PD**’ N 

300 

310 

REM 

REM 

LINE 

5 

- 

-MD**’N 

320 

REM 

LINE 

i 

- 

PS. PRN 

PS** 

MD** 

330 

REM 

LINE 

2 

- 

340 

REM 

LINE 

o 

- 

BF 

1 

1 

350 

REM 

LINE 

4 

- 

PK 

1 

0 

360  REM 
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370  GOSUB  1590 

380  PRINT"  E  0  D  U  P  L  I  C  BY  VOR" SPRINT 

390  PR I NT "PROGRAM  TO  WRITE  A  SIMPLIFIED  GOL  EQUATION  SET "SPRINT 
400  W*=" R9=l : INPUT "DO  YOU  WANT  TO  THIN  THE  EQUATIONS  (Y  OR  N)"SW* 

410  PRINT: IF  W*="N"  THEN  R9=0 

420  I  NF'UT "  ENTER  NAME  OF  EQUATION  FILE  <.TXT  FILE) "; W*: PRINT 

430  REM  - - READ  EQUATION  MASTER  FILE - — - 

440  PR  I NT "READING  EQUATION  FILE" S  PRINT 
450  F*="B:  "+W*+"  .  TXT"  S  OF'EN"  I  "  ,  1  ,  F* 

460  DIM  V* ( 1 , 20) S L0=0 
470  18=0 

480  LINE  I  NF'UT  #  1  ,  X  * 

490  LO=LO+ 1 

500  LINE  INPUT# 1 , V* ( 1 ,L0) 

510  IF  EOF (1) THEN  GOTO  530 
520  PRINT  V* ( 1 , LO) : GOTO  490 
530  PRINT  V* < 1,L0> : CLOSE  1 

540  REM  - - — —READ  ZERO-ONE  MATRIX  FILE - - - 

550  PRINTS  F*="B: "+W*+" . PRN" : PRINT" READING  MATRIX  F I LE " : PR I NT 
560  OPEN" I " , 1,F*:F*="B: "+W*+"R.TXT" 

570  DIM  C*  ( 1 , 25) , D ( 19, 25) , R* ( 1 , 19) 

580  LINE  INPUT#1,W*: JO=LEN(W*) /9-1 

590  FOR  J=1  TO  JO: U*=MID* (W*, J*9+l ,  9)  :  GOSUB  770 

600  C* ( 1 , J ) =U* 

610  PR I NT "COLUMN  LABEL  ";J,C*(1,J) 

620  NEXT  J : 10=0 
630  LINE  I NPUT # 1 , W* 

640  PRINT 

650  LINE  I NPUT# 1 , W*: 10=10+1 
660  IF  EOF < 1 )  THEN  CLOSE  1:18=1 
670  U*=LEFT* <W*, 9) : GOSUB  770 
680  R* ( 1 , 10) =U* 

690  PR  I NT "ROW  (COMMODITY)  LABEL  " f 10, R* < 1 , 10) 

700  FOR  J=1  TO  JO 
710  U*=MID4 (W*s J*9+l , 9) 

720  GOSUB  770 
730  D(IO,J)=VAL(U«) 

740  NEXT  J 

750  IF  18  =  0  THEN  GOTO  650  ELSE  GOTO  930 

760  REM - - - —SUBROUTINE  TO  REMOVE  LEADING  AND  TRAILING  BLANKS  FROM  Z* 

770  Z*=U* 

780  IF  LEFT* <Z*, 1>="  "THEN  Z*=R I GHT* ( Z* , LEN ( Z* ) - 1 )  ELSE  800 
790  GOTO  780 

800  IF  RIGHT* <Z*, 1 >="  "THEN  Z*=LEFT* ( Z* , LEN < Z * ) - 1 )  ELSE  820 


810  GOTO  800 
820  U*=Z*: RETURN 

830  REM  — ■ — — SUBROUTINE  TO  REMOVE  LEADING  BLANKS  FROM  W* - 

840  IF  LEFT* (W*, 1 ) ="  "THEN  GOTO  850  ELSE  GOTO  860 
850  W*=RIGHT* (W*, LEN (W*) -1 ): GOTO  840 
860  RETURN 

870  REM - SUBROUTINE  TO  PRINT  LINES - 

880  PRINT" - - — + - - - - — + - - — + — - - - + - + - +" 

890  PR  I  NT  #  1  ,  " - - + — - + - + - + - + - + - + 

900  RETURN 
910  GOSUB  1590 

920  REM  — - - - WRITE  TROLL  EQUATIONS - - - - - - - - - 


930  GOSUB  1590:  PRINT: 0PEN"0" , 1 , F*: PRINT"WRITE  EQUAT IONS" : PR I NT : J5=0 
940  FOR  1=1  TO  10: IF  R* (1,1) =C* (1,1)  THEN  J5=J5+1:NEXT  I 
950  PR I NT "BEG INNING  OF  FILE" : PRINT#1 , "BEGINNING  OF  FILE" 

960  GOSUB  880 

970  FOR  1=1  TO  10: L*=" " 

980  W*=V* < 1 , 1 ) +":  "+V* < 1 , 1 ) +V* < 1 , 2) 

990  X *="**" : Y*=R* (1,1): GOSUB  1300 
1000  GOSUB  1350 
1010  FOR  L=3  TO  LO 

1020  IF  R9= 1  AND  D(I,L-2)=0  THEN  GOTO  1050 
1030  W*=V* ( 1 , L) : X*="**" : Y*=R* ( 1 , I ) : GOSUB  1300 
1040  GOSUB  1350 
1050  NEXT  L 

1 060  W*= " , " : GOSUB  1 350 

1070  PRINT  L*:  F'RINT#1 ,  L*:  NEXT  I 

1080  GOSUB  1590 

1090  W*=" ": PRINT: INPUT"DO  YOU  WANT  DO  EQUATIONS  AS  WELL  (Y  OR  N)";W* 
1100  IF  W*= " N "  THEN  GOTO  1280 
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1 1 10 
1 1 20 
1 1 30 
1140 
1150 
1160 
1  1  70 
1  1B0 
1190 
1200 
1210 
1 220 
1 230 
1240 
1250 
1260 
1270 
1280 
1290 
1 300 
1310 
1320 
1 330 
1 340 
1350 
1 360 
1370 
1380 
1 390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1 500 
1510 
1510 
1 530 
1540 
1550 
1560 
1570 
1580 
1590 


REM - - — WRITE  TROLL  ’  DO'  EQUATIONS— — - 

PRINT:  PRINT"WRITE  ’  DO’  EQUATIONS'1 :  PRINT 

GOSUB  880 

REM 

FOR  1=1  TO  10: L*=" " 

W*="DD  "+V*<1,1)+"  =  " 

X*="**" : Y$=R* (1,1): GOSUB  1300 
GOSUB  1350 
FOR  L=3  TO  LO 

IF  R9=l  AND  D ( I , L-2 ) =0  THEN  GOTO  1240 
W*=V* ( 1 , L) : X*="$*" : Y*=R* (1,1): GOSUB  1300 
GOSUB  1450 
GOSUB  1350 
NEXT  L 

W*=";": GOSUB  1350 

PRINT  Lt: PR I NT# 1 , L$: NEXT  I 

GOSUB  880 

PRINT"END  OF  FILE": PR  I NT  #  1 ,  " END  OF  FILE":CLOSE  1 : END 

REM  - — — SUBROUTINE  TO  REPLACE  STRING  X*  WITH  STRING  Yi  IN  STRING  W*  — 

P0= I NSTR ( W$ , X $ )  ’REPLACE  X*  WITH  Y*  IN  W* 

REM  — - — SUBROUTINE  TO  REMOVE  SUFFIXES  FROM  ’DO’  EQUATIONS - - - - - 

IF  P0=0  THEN  RETURN 
MID* (Wi, PO)=Y$: GOTO  1300 

REM  - — - SUBROUTINE  TO  PRINT  LINE  IF  NEW  ONE  >  72  CHARS. - - — - 

IF  LEN (LS) +LEN (W* ) <=72  THEN  GOTO  1370  ’PRINT  IF  LEN > 80 
PRINT  l*:print#i,l*:l*="" 

L*=L*+W$: RETURN 

REM - - - SUBROUTINE  TO  REMOVE  STRING  XS  FROM  STRING  W* - - - 

PO=INSTR (WS, X* )  ’REMOVE  STRING  X*  FROM  W* 

IF  P0=0  THEN  RETURN 

IF  Pl=l  THEN  W*=RIGHT* ( W* , LEN ( W* ) -LEN ( X* ) ) 

IF  PO=LEN (W*) -LEN (X*) +1  THEN  W*=LEFT* ( W$ , LEN ( W* ) -LEN ( X* ) )  ELSE  GOTO  1440 
GOTO  1390 


WS=LEFT* (W*, PO-1 ) +RIGHT* ( W* , LEN  < W* ) -LEN ( X* ) -P0+ 1 ) : GOTO  1390 

X*="’POLN": GOSUB  1390 

X*="  ’  POLF'"  :  GOSUB  1390 

X*=" ’ NPOL" : GOSUB  1390 

X$="’ DEF": GOSUB  1390 

X*="’NXb": GOSUB  1390 

X*=" ’ X NS": GOSUB  1390 

X  *="’ POL ": GOSUB  1390 

X*=" ’ XN" : GOSUB  1390 

X*=" ’ XP" : GOSUB  1390 

X*="’ NX": GOSUB  1390 

X*="’N" : GOSUB  1390 

X*=" ’ X" : GOSUB  1390 

RETURN 

REM  - - - - SUBROUTINE  TO  CLEAR  SCREEN— - - - 

PRINT  CHR* (27) ; CHR* (58) : RETURN 


The  purpose  of  EQDUPLIC  is,  given  an  appropriate  input  'template*  equation 
and  an  input  matrix  of  O's  and  l's,  to  write  out  a  full  set  of  TROLL  equations 
for  all  GOL  commodities  containing  the  desired  terms.  Each  term  in  the  template 
equation  is  associated  with  a  matrix  column  and  will  be  written  out  for  a 
particular  commodity  if  the  column  contains  a  "1".  The  program  allows  this 
'thinning'  option  to  be  ignored  if  the  user  wishes. 

The  $$'s  in  the  equation  template  are  replaced  by  commodity  codes  in  the  left 
row  of  the  input  matrix.  The  columns  of  the  input  matrix  show  the  terms  of 
the  template  equation  to  be  included  in  each  commodity  equation. 


USPS.TXT 

USPS** 

’DEF  == 

ABSV ’ F ( USPD** ’ N 

— ustc** ’  poln  z —  Input  equation  template  file 

-USMD**’N  N 

-USTP**’ POLN 
) 
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y  Input  matrix  file  of  0's  and  I's 

K 


DSPS.  PRN  <USPD**’ N-USTC*$ ” P-USMD$$ ’ N— UETP** ” P  > 


BF  1 

Pk  1 

ML  1 

DM  1 

PM  I 

PE  1 

WH  1 

CN  1 

CG  1 

R I  1 

SB  1 

□  S  i 

SM  1 

SO  1 

DM  i 

00  1 

DB  1 

DC  1 

DO  1 


0 

O 

0 

0 

0 

O 

o 

o 

0 

0 

0 

o 

o 

0 

0 

0 

0 

0 

0 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

i 

1 


0 

o 

0 

0 

0 

o 

0 

0 

0 

0 

0 

0 

0 

o 

0 

o 

0 

0 

o 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

•l 

1 

1 

1 


01 

r' 


0 

D 

y 


BEGINNING  OF  FILE 


Example  output  file  1 


USPSBF 

USPSPK 

USPSML 

USPSDM 

USPSPM 

USPSF'E 

USPSWH 

USF'SCN 

USPSCG 

USPSRI 

USPSSB 

USF'SOS 

USF'SSM 

USPSSO 

USPSOM 

USPSOO 

USF'SDB 

LJSF'SDC 

USPSDO 


USPSBF ’ DEF 
USPSPK” DEF 
USPSML” DEF 
USPSDM  5  DEF 
USPSPM’ DEF 
USPSF'E”  DEF 
USPSWH” DEF 
USF'SCN"  DEF 
USPSCG” DEF 
USPSRI ” DEF 
USPSSB” DEF 
USF'SOS”  DEF 
USF'SSM”  DEF 
USPSSO” DEF 
USPSOM’ DEF 
USPSOO” DEF 
USPSDB’ DEF 
USF'SDC”  DEF 
USPSDO” DEF 


==ABSV  ’  F  ( USF'DBF  ”  N-USTCBF  ”  F'OLN— USMDBF  ”  N— USTPBF  ’  POLN  )  , 
==ABSV 5  F  ( USPDF'K  ’  N-USTCPK  ”  F'OLN-USMDPK  ”  N-USTPF'K  ’  POLN  >  , 
==ABSV ” F ( USFDML ” N-USTCML ” POLN-USMDML ’ N-USTPML ’ POLN ) , 
=— ABSV’  F  (USF'DDM’  N-USTCDM”  POLN-USMDDM’  N-USTPDM’  POLN)  , 
==ABSV’  F  (USPDFM”  N-USTCPM”  POLN-USMDF'M ”  N-USTPPM”  F'OLN)  , 
==ABSV  ”  F  ( USPDPE  ’  N-USTCF'E  ’  POLN-USMDF'E  ”  N-USTF'PE  ”  POLN )  , 
==ABSV’  F  (USF'DWH”  N-USTCWH”  F'OLN-USMDWH  ”  N-USTPWH”  POLN)  , 
=-ABSV’  F  (USF'DCN”  N— USTCCN’  POLN-USMDCN’  N-USTF'CN ’  F'OLN )  , 
==ABSV”  F (USPDCG” N-USTCCG” POLN-USMDCG” N-USTPCG” POLN) , 
=-ABSV  ”  F  ( USF'DR  I  ”  N-USTCR  I  ”  F'OLN-USMDR  I  ”  N-USTPR I  ’  POLN  )  , 
==ABSV’ F (USPDSB’ N-USTCSB” POLN— USMDSB”  N-USTPSB’  POLN)  , 
==ABSV  ’  F  (USPDOS’  N-USTCOS”  F'OLN-USMDOS  ”  N-USTPOS  ’  POLN)  , 
==ABSV”  F  ( USPDSM ”  N— USTCSM ”  F'OLN— USMDSM ’  N-USTPSM ’  POLN )  . 
==ABSV” F  (USF'DSO”  N-USTCSO”  F'OLN-USMDSO ’  N-USTPSO”  POLN)  , 
==ABSV’ F (USPDOM’ N-USTCOM” POLN-USMDOM’ N-USTPOM ” POLN )  . 
==ABSV’ F (USPDOO’ N-USTCOO” POLN-USMDOO ” N-USTPOO ”  POLN )  , 
==ABSV”  F  ( USPDDB  ”  N-USTCDB”  F'OLN-USMDDB’  N-USTPDB  '  POLN)  , 
==ABSV’ F ( USPDDC ” N-USTCDC ” POLN-USMDDC ’ N-USTPDC ’ POLN ) , 
==ABSVS  F (USPDDO” N-USTCDO’ POLN-USMDDO’ N-USTPDO’ POLN) , 

+ 1-- - - - -  -  H - 1 - - - K - -i — 


DO  USPSBF  = 
DO  USPSPK  = 
DO  USPSML  = 
DO  USPSDM  = 
DO  USPSPM  = 
DO  USPSPE  = 
DO  USF'SWH  = 
DO  USF'SCN  = 
DO  USPSCG  = 
DO  USPSRI  - 
DO  USPSSB  = 
DO  USPSOS  = 
DO  USPSSM  = 
DO  USF'SSO  = 
DO  USPSOM  = 
DO  USPSOO  = 
DO  USPSDB  = 
DO  USPSDC  = 
DO  USPSDO  = 


END  OF  FILE 


ABSV’F  (USF'DBF-USTCBF-USMDBF-USTPBF)  ; 
ABSV” F  < USPDPK— USTCPK— USMDPK— USTPPK )  ; 
ABSU” F (USPDML-USTCML-USMDML-USTPML)  ; 
ABSV”  F  ( USF'DDM-USTCDM-USMDDM-USTPDM )  ; 
ABSV’F  (USF'DF'M-USTCPM-USMDPM-USTPPM)  ; 
ABSV” F (USPDPE— USTCPE-USMDPE-USTPPE ) 5 
ABSV’ F ( USPDWH-USTCWH— USMDWH-USTPWH )  ; 
ABSV’ F ( USPDCN-USTCCN— USMDCN-USTPCN ) 5 
ABSV’  F  (  USF'DCG-USTCCG-USMDCG— USTPCG )  ; 
ABSV”  F  (USF'DRI-USTCR'I-USMDRI-USTPRI )  ; 
ABSV’  F (USPDSB-USTCSB-USMDSB-USTPSB) 5 
ABSV’  F (USPDOS-USTCOS-USMDOS-USTPOS) ; 
ABSV’ F ( USPDSM-USTCSM-USMDSM— USTPSM ) ; 
ABSV”  F  < USF'DSO-USTCSO-USMDSO-USTPSO )  ; 
ABSV’F ( USPDOM-USTCOM-USMDOM— USTPOM ) ; 
ABSV’F ( USPDOO— USTCOO-USMDOO-USTPOO )  ; 
ABSV’  F  ( USF'DDB-USTCDB-USMDDB-USTPDB )  ; 
ABSV”  F  (  USF'DDC-USTCDC-USMDDC— USTPDC )  5 
ABSV’F (USPDDO-USTCDO— USMDDO-USTPDO) J 

- - - ' - «™ - - - + - H 

TROLL  'DO*  statements  to  create 


TROLL  equations 


V- 

definition 


- — - +  —  - + 

data  from  historical  data 
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Two  examples  of  output  files  created  from  the  input  files  are  presented. 
The  first  example  did  not  use  the  option  of  'thinning'  out  the 
output  equations  while  the  second  example  does  exercise  this  option.  The 
outputs  from  this  example  are  the  basic  ingredients  for  the  domestic  price 
program  of  TROLL  (USGOLPS)  presented  earlier  in  this  report. 


BEGINNING  OF  FILE 


uspsbf:  uspsbf’ def 

USF'SPK:  USPSPK’DEF 

uspsml:  uspsml’ def 
uspsdm:  uspsdm’ def 
uspspm:  usfspm’ def 

USPSPE:  USPSPE ’ DEF 
USPSWH:  LJSF'SWH ’  DEF 
USF'SCN:  USF'SCN’DEF 
USPSCG:  USPSCG ’ DEF 
USPSRI:  USPSR 1 7  DEF 
USPSSB:  USPSSB ’ DEF 

uspsog:  uspsos ’ def 

USPSSM:  USPSSM’ DEF 
USF'SSO:  USF'SSO’  DEF 
USPSOM:  USPSDM’ def 
USF'SOO:  USF'SOO  ’  DEF 
USF'SDB:  USF'SDB ’  DEF 
USF'SDC:  USPSDC’DEF 
USPSDO:  USPSDO ’ DEF 


==ABSV ’ F  <  USPDBF ’ N-USMDBF ’ N ) , 
==ABSV ’  F  < USF'DPK  ’  N-USMDPK ’  N)  , 
—ABSV’F  (USPDML’N-USMDML’N) , 
==ABSV’ F (USPDDM’ N-USMDDM’ N> , 
==ABSV’ F (USPDPM’ N-USMDPM’N) , 
==ABSV  ’  F  ( USF'DF’E  ’  N-USMDPE  ’  N )  , 
—ABSV’F  (USPDWH’N-USMDWH’N)  , 
«ABSV’F(USF'DCN’N-USMDCN’N) , 
-=ABSV’  F  (USF'DCG’  N-USMDCG’  N)  , 
=— ABSV’ F (USPDRI ’ N— USMDRI ’ N) , 
— =ABSV’ F (USPDSB’ N-USMDSB’ N) , 
==ABSV’ F (USPDOS’ N-USMDOS’ N) , 
-=ABSV’  F  (USF'DSM’  N-USMDSM ’  N )  , 
==ABSV’ F (USPDSO’ N-USMDSO’  N)  , 
==ABSV’ F (USPDOM’ N— USMDOM ’  N )  , 
==ABSV’ F (USPDOO’ N-USMDOO’ N) , 
=~ABSV  ’  F  ( USF'DDB  ’  N— USMDDB  ’  N )  , 
==ABSV’ F ( USPDDC ’ N-USMDDC ’  N )  , 
==ABSV ’ F ( USPDDO ’ N-USMDDO ’ N ) , 


DO  USPSBF  = 
DO  USF'SPK  = 
DO  USPSML  = 
DO  USPSDM  = 
DO  USPSF'M  = 
DO  USPSPE  = 
DO  USPSWH  = 
DO  USPSCN  = 
DO  USPSCG  = 
DO  USPSRI  = 
DO  USPSSB  = 
DO  USPSOS  = 
DO  USPSSM  = 
DO  USF'SSO  = 
DO  USPSOM  = 
DO  USPSOO  = 
DO  USF'SDB  = 
DO  USF'SDC  = 
DO  USPSDO  = 


ABSV’ F (USPDBF— USMDBF)  ; 
ABSV’F  (USF'DPK— USMDPK)  ; 
ABSV’ F ( USPDML— USMDML ) j 
ABSV’  F  (USF'DDM-USMDDM )  ; 
ABSV’F  (USPDPM-USMDF'M)  ; 
ABSV’  F  (USPDF'E— USMDPE)  ; 
ABSV’ F  < USPDWH— USMDWH ) ; 
ABSV’F (USPDCN-USMDCN) ; 
ABSV’ F ( USPDCG-USMDCG  > ; 
ABSV’F  (USF'DRI-USMDRI )  ; 
ABSV’ F (USPDSB-USMDSB) ; 
ABSV’ F (USPDOS-USMDOS) ; 
ABSV’ F ( USPDSM-USMDSM > ; 
ABSV’  F  (USF'DSO-USMDSO)  ; 
ABSV’ F (USPDOM-USMDOM) ; 
ABSV’ F (USPDOO-USMDOO) ; 
ABSV’ F (USPDDB-USMDDB) ; 
ABSV’ F (USPDDC-USMDDC) ; 
ABSV’ F (USPDDO-USMDDO) ; 


END  OF  FILE 


Example  output  file  2 
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II-B.l.c 


CTYLINK  -  Write  out  TROLL  Cross-Country  Equations 


The  linkage  of  country  models  requires  that  equations  and  other 
TROLL  statements  be  written  using  variables  for  included  countries/ 
regions.  The  CTYLINK  program  allows  the  use  of  an  equation  template  and 
a  matrix  of  "l's"  (for  included  countries/regions)  as  an  easy  way  to 
write  such  statements.  An  example  of  inputs  to,  and  outputs  from  this 
program  are  given  after  the  listing. 

10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  MAR.  20,  1983 

20  CLEAR  5000 

30  REM  THIS  PROGRAM  REQUIRES  2  INPUT  FILES: 

40  REM  AN  EQUATION  MASTER  FILE  < — .TXT)  AND  A  ZERO-ONE  MATRIX  FILE  ( — . PRN ) 


50  REM 

60  REM  FILE  - .TXT  MUST  HAVE: 

70  REM  LINE  1  FILE  NAME 

80  REM  LINE  2  VARIABLE  NAME  -  E.G.  USQD44 

90  REM  LINE  3  REST  OF  VARIABLE  NAME  AND  EQUAL  SIGN 

100  REM  E.G.  DEF  ==  ABSV’F 

110  REM  LINE  4— N  (LIMIT  N=30>  ONE  VARIABLE  IN  EACH  LINE 
120  REM  E.G.  -USQDSS’N 

130  REM  REMEMBER  TO  INCLUDE  ALL  NECESSARY  PARENTHESES  WITH 

140  REM  WITH  VARIABLES  OR  ON  EXTRA  LINES 

150  REM 

160  REM  FILE  - . PRN  MUST  HAVE: 

170  REM  LINE  1  FILE  NAME  PLUS  DESIRED  COLUMN  LABELS 
180  REM  LINE  2  BLANK  LINE 

190  REM  LINE  3-N  ROWS  FOR  EACH  GOL  COMMODITY  WITH  A  1  OR  0  FOR  EACH  TERM  OR 
200  REM  EACH  VARIABLE  IN  LINES  4-N,  A  ’ 1 ’  MEANS  THAT 

210  REM  THE  VARIABLE  SHOULD  BE  INCLUDED  IN  THE  EQUATION 

220  REM  A  ’O’  MEANS  THAT  A  VARIABLE  IS  NOT  INCLUDED 

230  REM  REMEMBER  THAT  THE  FIELDS  OF  THE  COUNTRY  MATRIX  MUST  BE  3  CHAR.  WIDE 

240  REM 

250  REM - - — SAMPLE  INPUT  FILES  FOLLOW: 


260  REM  - - - - - - - - - - — - - - - - 

270  REM  LINE  1  -  WD.TXT 
280  REM  LINE  2  -  WDQT*$ 

290  REM  LINE  3  -  ’DEF  == 

300  REM  LINE  4  -  ##0T** 

310  REM  LINE  5  -  -t-##QT*$ 

320  REM  LINE  6  -  +##QT*$ 

330  REM  - 

340  REM  LINE  1  -  WDT  US  JP  RW 
350  REM  LINE  2  - 
360  REM  LINE  3  -  BF  1  1  1 
370  REM  LINE  4  -  CN  1  0  1 

380  REM - - - 

390  GOSUB  1620 

400  PRINT"  C  T  Y  L  I  N  K  BY  VOR" : PR  I NT 

410  PR  I NT "PROGRAM  TO  LIN)  GOL  COUNTRY  VAR  I ABALES " : PR  I NT 

420  W*  =  " " : R9=l : INPUT "DO  YOU  WANT  TO  THIN  THE  EQUATIONS  <Y  OR  N)";W* 

430  PRINT: IF  W$="N"  THEN  R9=0 

440  INPUT"ENTER  NAME  OF  EQUATION  FILE  (.TXT  FILE) "? W*: PRINT 

450  REM - —READ  EQUATION  MASTER  FILE— - 

460  PRINT "READING  EQUATION  FILE": PR  I  NT 
470  F*="B: "+W$+" . TXT" : OPEN" I " , 1  ,  F* 

480  DIM  V$ ( 1 , 35 ) : LG=0 
490  18=0 

500  LINE  I NPUT# 1 , X * 

510  L0=L0+1 

520  LINE  I NPUT # 1 , V* ( 1 , LO > 

530  IF  EOF ( 1 ) THEN  GOTO  550 
540  PRINT  V$ ( 1 , LO) : GOTO  510 
550  PRINT  V$ ( 1 ,L0) : CLOSE  1 

560  REM - READ  ZERO-ONE  MATRIX  FILE - 

570  PRINT :  F*="B:  "4-W4+"  .  PRN"  :  PR  I  NT  "READING  MATRIX  FILE":  PRINT 
580  OPEN" I " , 1 , F$: F*="B: "+W*+"R. TXT" 

590  DIM  C* ( 1 , 35) , D ( 19, 35) , Rt ( 1 , 19) 

600  LINE  INPUT#1,W*: JO=LEN(W*> /3-1 

610  FOR  J=1  TO  JO: U*=MIDt (W4, J*3+l , 3) : GOSUB  790 

620  C$ ( 1 , J ) =US 

630  PR I NT "COLUMN  LABEL  " ;J,C*(1,J> 

640  NEXT  J : 10=0 
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650  LINE  I  NF'UT  #  1  ,  W* 

660  PRINT 

670  LINE  INPUT#1,W*: 10=10+1 
680  IF  EOF ( 1 )  THEN  CLOSE  1:18=1 
690  U*=LEFT* ( W*, 3) : GOSUB  790 
700  R* ( 1 ,  10) =U* 

710  PRINT "ROW  (COMMODITY)  LABEL  " ; 10, R* < 1 , I0> 

720  FOR  J  =  1  TO  JO 

730  U*=MID*(W», J*3+l,3> 

740  GOSUB  790 

750  D< 10, J)=VAL<y*) 

760  NEXT  J 

770  IF  18  =  0  THEN  GOTO  670  ELSE  GOTO  950 

780  REM  - - - - —SUBROUTINE  TO  REMOVE  LEADING  AND  TRAILING  BLANK'S  FROM  Z* 

790  Z*=U* 

800  IF  LEFT* ( Z* , 1 ) ="  "THEN  Z*=RI GHT* ( Z* , LEN ( Z* ) — 1 )  ELSE  820 
BIO  GOTO  BOO 

820  IF  RIGHT* ( Z*, 1 ) ="  "THEN  Z*=LEFT* ( Z* , LEN < Z* ) - 1 )  ELSE  840 
830  GOTO  820 
840  U*=Z*: RETURN 


850  REM - - - SUBROUTINE  TO  REMOVE  LEADING  BLANKS  FROM  W* - - - - 

860  TF  LEFT* (W*, 1 ) ="  "THEN  GOTO  870  ELSE  GOTO  880 
870  W*=RIGHT* <W*, LEN (W*) -1 ): GOTO  860 
880  RETURN 

890  REM  - - — -SUBROUTINE  TO  PRINT  LINES - - - - - 

900  PR  I  NT  "  — - + — - +— - +— • - + - - - +- — - - — +  " 

910  PRINT#1," — - — - ■+ - ■* - — - + - - - • - - — ■ — 1 - +— - 

920  RETURN 
930  GOSUB  1620 

940  REM  - - - - WRITE  TROLL  EQUATIONS - - - — - — - • - 

950  GOSUB  1620:  PRINT: 0PEN"0" , 1 , F*: FRINT"WRITE  EQUATIONS" : PRINT: J5=0 


960  FOR  1=1  TO  IO:IF  R* (1,1) =C* (1,1)  THEN  J5=J5+i:NEXT  I 
970  PR I NT "BEG INNING  OF  FILE" : PRINT#1 , "BEGINNING  OF  FILE" 

980  GOSUB  900 

990  FOR  1=1  TO  10: L*=" " 

1000  W*=V* ( 1 , 1 ) +":  "+V*  ( 1 ,  1 ) +V* ( 1 , 2) 

1010  X *="**" : Y*=R* (1,1): GOSUB  1340 
1020  GOSUB  1380 
1030  FDR  L=3  TO  LO 

1040  IF  R9= 1  AND  D ( I , L-2) =0  THEN  GOTO  1080 
1050  W*=V* ( 1 , L ) : X*= " ** " : Y*=R* (1,1): GOSUB  1340 
1060  X4="##" : Y*=C* ( 1 , L-2) : GOSUB  1340 
1070  GOSUB  1380 
1080  NEXT  L 

1090  W*=", " : GOSUB  1380 

1100  PRINT  L*: PR I NT# 1 , L*: NEXT  I 

1110  GOSUB  1620 

1120  W*=" ": PRINT: INFUT"DO  YOU  WANT  DO  EQUATIONS  AS  WELL  (Y  OR  N)";W* 

1130  IF  W*="N"  THEN  GOTO  1320 

1140  REM  — - - WRITE  TROLL  ’  DO ’  EQUATIONS - - - 

1150  PRINT: PRINT"WRITE  ’DO’  EQUATIONS" : PRINT 
1160  GOSUB  900 
1170  REM 

1180  FOR  1=1  TO  10: L*=" " 

1 1 90  W*= " DO  " +V* (1,1)+"  =  " 

1200  X*="**" : Y*=R* ( 1 , I ) : GOSUB  1340 
1210  GOSUB  1380 
1220  FOR  L=3  TO  LO 

1230  IF  R9= 1  AND  D(I,L-2>=0  THEN  GOTO  1280 

1240  W*=V* < 1 , L) : X*="**" : Y*=R* ( 1 , I ) : GOSUB  1340 

1250  X*="##" : Y*=C* < 1 , L-2) : GOSUB  1340 

1260  GOSUB  1480 

1270  GOSUB  1380 

1280  NEXT  L 

1290  W*=":": GOSUB  1380 

1300  PRINT  L*: PRINT#1 , L*: NEXT  I 

1310  GOSUB  900 

1320  PR I NT " END  OF  FILE" : PRINT#1 , "END  OF  FILE":CLOSE  1 : END 

1330  REM  - SUBROUTINE  TO  REPLACE  STRING  X*  WITH  STRING  Y*  IN  STRING  W* — 

1340  P0= I NSTR ( W* , X * )  ’REPLACE  X*  WITH  Y*  IN  W* 

1350  IF  P0=0  THEN  RETURN 
1360  MID* <W*,PO)=Y*: GOTO  1340 
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1370  REM - - - - SUBROUTINE  TO  PRINT  LINE  IF  NEW  ONE  >  72  CHARS. - 

1380  IF  LEN  (Lt)  -t-LEN  (W$>  <  =72  THEN  GOTO  1400  "PRINT  IF  LEN >80 
1390  PRINT  L*:  PRINT#1  ,  Lt:  L*>="  " 

1400  L*=L*+W4: RETURN 

1410  REM  - SUBROUTINE  TO  REMOVE  STRING  X*  FROM  STRING  W* - 

1420  PO=INSTR <W$, X* )  ’ REMOVE  STRING  X*  FROM  W$ 

1430  IF  P0=0  THEN  RETURN 

1440  IF  Pl=l  THEN  W$=R I GHT« ( W$ , LEN ( W$ ) -LEN ( X $ ) ) 

1450  IF  P0=LEN<W*)-LEN(X*)+1  THEN  W$=LEFT*  (  W*  ,  LEN  (  W*  )  -LEN  (  X  *  )  )  ELSE  GOTO  1470 
1460  GOTO  1420 

1470  W*=LEFT*  (W*  ,  F'0-1  )  +RIGHT*  <  W*,  LEN  <  W*  >  -LEN  <X*) -PO+1  )  :  GOTO  1420 

1480  X*=" " POLN" : GOSUB  1420 

1490  X*=" ’ POLP" : GOSUB  1420 

1500  X*=" " NPOL" : GOSUB  1420 

1510  X4=" ’ DEF" 1 GOSUB  1420 

1520  X*=" ’ NXS" : GOSUB  1420 

1530  X$=" 5 XNS” : GOSUB  1420 

1540  X*  =  " ’ POL " : GOSUB  1420 

1550  X*=" ’ XN" : GOSUB  1420 

1560  X*=" ’ XP" : GOSUB  1420 

1570  X$=" !NX": GOSUB  1420 

1580  X*=" ’ N" : GOSUB  1420 

1590  X4=" " X GOSUB  1420 

1600  RETURN 

1610  REM  - - SUBROUTINE  TO  CLEAR  SCREEN - 

1620  PRINT  CHR* (27) ; CHR* (58) : RETURN 


j  Input  equation 


WDT. TXT 
WDQT  ** 

’  DEF  == 
##QT*S> 
+##GT** 
+##QT$$ 
+##0T$$ 
+##QT$* 
+##QT*$ 

+##QT** 

+#4QT$* 

+##OT*t 

+##QTtt 

♦##QT** 


+##QT** 

+##0T*4 

-t-##QT4* 

+##QT4* 

+##QT*S 

+##QT$* 
+#«QTi* 
+##QT*$ 
+##QT*$ 
+##QT*$ 
+  ##QT it 
+RWQT** 


template  file 


The  purpose  of  the  program  CTYLINK  is, 

given  an  input  'template'  equation  and  a 
matrix  of  l’s  and  s ,  to  write  out  the 
template  equations  for  the  countries/ 
regions  marked  at  the  heads  of  the  columns. 
If  the  column  has  a  "1"  for  a 
particular  coun try/region ,  the  term  will  be 

included  for  that  country/region  for 
the  row  commodity. 


SUPERCALC  ".CAL”  file  used  to  create  the  input  country  matrix  file  which  is 
read  by  the  program.  ^ 


:a: i b : : c : : d : : e : :f: : g : : h : : i : : j : : k i : l : : m : in: i o 


ot  i r i is: it! :u: iv: :w: ix: :y: : z : 


1 

WDT 

US 

CN 

EC 

WE  JP 

3 

BF 

1 

1 

1 

1 

4 

pk 

1 

1 

1 

1 

5 

ML 

1 

1 

1 

1 

6 

PM 

1 

1 

1 

1 

~7 

PE 

1 

1 

1 

1 

8 

WH 

1 

1 

1 

1 

9 

cn 

1 

1 

1 

1 

10 

CG 

1 

1 

1 

1 

1  1 

R I 

1 

1 

1 

1 

12 

SB 

1 

1 

1 

1 

13 

OS 

1 

1 

1 

1 

14 

SM 

1 

1 

1 

1 

15 

SO 

1 

1 

1 

1 

16 

OM 

1 

1 

1 

1 

17 

00 

1 

1 

1 

1 

18 

DB 

1 

1 

1 

0 

19 

DC 

1 

1 

1 

0 

20 

DO 

1 

1 

1 

0 

100 


Input  country  matrix  of  I's  and  - '  s 


WDT  US  CN  EC  WE  JP  AZ  SF  EE  SV  CH  MX  CA  BZ  AR  UE  LA  AF  EG  ME  ND  OS  DO  TH  SA  EA  OA  RW 


BF  1 
F'K  1 
ML  1 
PM  1 
F’E  1 
WH  1 
CN  1 
CG  1 
R I  1 
SB  1 
OS  1 
SM  1 
SO  1 
OM  1 
00  1 
DB  1 
DC  1 
DO  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1  _  1 

1 
1 
1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


BEGINNING  OF  FILE 


1 


Example  output  file 


WDQTBF :  WDOTBF ’ DEF 
WDDTPK:  WDQTPK’DEF 
wdqtml:  WDQTML’DEF 
WDQTPM :  WDQTF'M  ’  DEF 
WDOTF'E :  WDQTF'E  "  DEF 
WDOTWH :  WDOTWH ’ DEF 
WDQTCN:  WDQTCN^DEF 
WDQTCG :  WDQTC6 ' DEF 
WDQTRI:  WD.QTR  I  ’  DEF 
WDQTSB:  WDQTSB’ DEF 
WDQTOS :  WDOTOS  7  DEF 
WDOTSM:  WDOTSM’DEF 
WDOTSO :  WDQTSO ' DEF 
WDOTOM :  WDOTOM ' DEF 
WDQTOO:  WDQTOO ' DEF 
WDQTDB:  WDQTDB'DEF 
WDOTDC:  WDQTDC ' DEF 
WDOTDO:  WDQTDQ ' DEF 


USOTBF+CNQTBF+ECQTBF+ JPQTBF+RWQTBF , 
USQTPK+CNQTPK+ECQTPK+JPQTPK+RWQTPK, 
USQTML+CNQTML+ECQTML+JPQTML+RWQTML, 
USQTF'M+CNOTPM+ECQTPM+JPQTPM+RWQTFM, 
USOTPE+CNQTPE+ECQTPE+JPQTPE+RWQTPE, 
USQTWH+CNQTWH+ECQTWH+JPQTWH+RWQTWH , 

USQTCN+CNQTCN+ECQTCN+ JF'QTCN+RWQTCN , 

USQTCG+CNOTCG+ECQTCG+ JF'QTCG+RWQTCG , 

USQTR  I+CNQTRI +ECQTR I  +  JF'QTR  I +RWQTR I  ,  < —  TROLL  equations 

USQTSB+CNQTSB+ECQTSB+ JF'OTSB-t-RWQTSB , 
USOTOS+CNOTOS+ECQTOS+JPOTOS+RWDTOS, 

USQTSM+CNQTSM+ECQTSM+ JPQTSM+RWQTSM , 

USQTSO+CNOTSO+ECOTSO+ JF'OTSO+RWOTSO , 
USCTOM+CNQTOM+ECQTOM+JPQTOM+RWQTOM, 
USQTOO+CNQTOO+ECOTOO+JPQTOO+RWQTOO, 
USOTDB+CNOTDB+ECQTDB+RWQTDB, 

USQTDC+CNQTDC+ECOTDC+RWQTDC. 

U50TD0+CN0TD0+ECQTD0+RWQTD0, 


DO  WDQTBF 
DO  WDQTF'K 
DO  WDOTML 
DO  WDQTPM 
DO  WDQTPE 
DO  WDQTWH 
DO  WDQTCN 
DO  WDQTCG 
DO  WDQTRI 
DO  WDQTSB 
DO  WDQTOS 
DO  WDQTSM 
DO  WDQTSO 
DO  WDQTOM 
DO  WDQTOO 
DO  WDQTDB 
DO  WDQTDC 
DO  WDQTDO 


USQTBF+CNDTBF+ECQTBF+ JPOTBF+RWQTBF; 
USQTF'K+CNQTF'K+ECQTPK+JPQTPK+RWQTPK; 
USQTML+CNQTML+ECQTML+JPOTML+RWQTML: 
USQTPM+CNQTF'M+ECQTPM+JPQTPM+RWQTPM; 

USQTPE+CNQTFE+ECQTPE+ JPQTF'E+RWQTF'E : 

USQTWH+.CNQTWH+ECQTWH+ JF'QTWH+RWQTWH : 
USQTCN+CNQTCN+ECQTCN+JPQTCN+RWQTCN; 

USQTC6+CNQTCG+ECQTCG+ JF'QTCG+RWQTCG? 

USQTR  I +CNQTR I +ECQTR I +JPQTR I +RWQTR I :  ^ — TROLL  'DO'  equations 

USQTSB+CNOTSB+ECQTSB+ JPQTSB+RWQTSB ; 
USQTOS+CNOTOS+ECQTOS+JPQTOS+RWQTOS; 

USQTSM+CNQTSM+ECQTSM+ JPQTSM+RWQTSM ; 

USQTSO+CNDTSO+ECQTSO+ JPQTSO+RWQTSO ; 
USQTOM+CNQTOM+ECQTOM+JF'QTOM+RWQTOM; 
USQTOO+CNQTOO+ECQTOO+JPQTOO+RWQTOO; 

USQTDB+CNQTDB+ECQTDB+RWQTDB; 

USQTDC+CNQTDC+ECQTDC+RWQTDC; 

USCTDO+CNQTDO+ECQTDO+RWQTDO ; 


END  OF  FILE 
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II-B.l.  d.  CLONE  -  Clone  a  TROLL  Statement  for  GOL  Commodities 


The  program  CLONE  takes  an  input  'template'  TROLL  equation  or  statement  and 
replaces  the  $$'s  with  GOL  commodity  codes  thus  cloning  the  statement  for  all 
GOL  commodities.  The  user  has  the  option  of  omitting  selected  commodities  from 
the  cloning  process. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  8,  1983 

20  PRINT  CHR* (27) : CHR* (58) : CLEAR  5000 
30  DIM  A* ( 1 , 19) . D* ( 1 , 30) 

40  PRINT  "CLONE  PROGRAM  BY  VOR": PRINT 

50  PR I NT : PR I NT " TH I S  PROGRAM  DUPLICATES  TROLL  COMMANDS  OR  EQUATIONS  FROM  A  " 

60  PRINT"MASTER  SET  CREATED  BY  A  WORD  PROCESSING  PROGRAM  AND  STORED  IN  ASCII  FORMAT 
70  PR I  NT "EACH  '**'  IS  REPLACED  BY  GOL  COMMODITY  CODES PR I  NT 

80  PR I NT "PROGRAM  REQUIRES  AN  ASCII  FILE  OF  NO  MORE  THAN  31  LINES  ON  5 B  ’  DRIVE 
90  PR  I NT" THE  NAME  MUST  BE  ***+**+. TXT" 

100  PRINT"THE  FIRST  LINE  CAN  CONTAIN  THE  FILE  NAME  AND  IS  NOT  CLONED" 

110  PRINT"A  SAMPLE  FILE  ISi" 

120  PRINT 

130  PRINT"FILE  NAME" 

140  PRINT" 1ST  LINE  TO  BE  CLONED" 

150  PRINT"2ND  LINE  TO  BE  CLONED" 

l&O  PR  I NT" ETC o "1  PR I NT 

170  PRINT-FETCHING  COMMODITY  CODES" 

180  GOSUB  440  ’  FETCH  COMMODITY  CODES 

190  GOSUB  500  ’  READ  IN  FILE  TO  BE  CLONED 

200  GOSUB  630  ’  SELECT  PRODUCTS  TO  BE  OMITTED 

210  GOSUB  290  ’  WRITE  FILE  OF  CLONED  STATEMENTS 

220  END 
230  REM 

240  REM  — -- — — — SUBROUTINE  TO  REPLACE  '**’  WITH  A  GOL  COMMODITY  CODE - 

250  PO=INSTR(W*, "**">  5  REPLACE  **  WITH  GOL  COMMODITY  CODE 

260  IF  P0=0  THEN  RETURN 

270  MID* <W*,PO> =A* < 1 , I) :GOTO  250 

280  REM  — - - - —SUBROUTINE  TO  WRITE  A  FILE  OF  CLONED  STATEMENTS - 

290  PRINT  CHR* (27)  ; CHR* (58) : PRINT"WRITING  FILE  OF  CLONED  STATEMENTS ": PR  I NT 
300  F*="B: "+F*+"C. TXT:  1 " : 0PEN"0" ,  1  ,  F* 

310  PR  I NT "BEG  INNING  OF  FILE" : PRINT#1 ,  "BEGINNING  OF  FILE- 

320  FOR  1=1  TO  19 

330  IF  0 ( I ) = 1  THEN  400 

340  FOR  J=1  TO  10 

350  W*  =  D*  ( 1 ,  J  ) 

360  GOSUB  250 
370  PRINT  W* 

380  PRINT#1 , W* 

390  NEXT  J 
400  NEXT  I 

410  PR I  NT "END  OF  FILE" : PRINT#1 , "END  OF  FILE" 

420  RETURN 
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430  REM  — - - — SUBROUTINE  TO  PUT  GOL  COMMODITY  CODES  IN  A  VECTOR - 

440  W*=  " BFPKMLDMPMPEWHCNCGR I SBOSSMSQOMOODBDCDQ"  ’GOL  COMMODITY  CODES  CONCATENATED 

450  PRINT: FOR  1=1  TO  19 

460  A* ( 1 ,  I >  =M I D*  <  W* ,  ( I - 1) *2+ 1,2) 

470  PRINT  MID* (WS,  < 1-1 ) *2+1 , 2) ! " 

480  NEXT  I: PRINT  "  " 

490  PR  I NT: RETURN 

500  REM - SUBROUTINE  TO  READ  IN  AN  ASCII  FILE  TO  BE  CLONED - - - - - 

510  PRINT:  INPUT‘'ENTER  NAME  OF  ’TXT’  FILE  ON  DRIVE  ’&’  TO  BE  CLONED"  ;F* 

520  W*="B: "+F*+" .TXT" : OPEN" I " , 1 , W* 

530  PRINT  CHR* (27) ; CHR* (58) 

540  PRINT  "FILE  READ  IN  IS:": PRINT 
550  PRINT  W* 

560  LINE  I NPUT # 1 , W* 

570  1=0 

580  I  =  I  +  l:LINE  INPUT# 1 ,  D*  <  1 ,  I ) 

590  IF  EOF ( 1 )  THEN  610 
600  PRINT  D* ( 1 , I ) : GOTO  580 

610  10=1 : CLOSE  l: PRINT  D* ( 1 , 10) : PRINT: RETURN 

620  REM  — — — — — SUBROUTINE  TO  OMIT  GOL  PRODUCTS  FROM  CLONING  PROCEDURE - — — 

630  PR I NT "SELECT  PRODUCTS  TO  OMIT  FROM  CLONING" 

640  DIM  0(19):F0R  1=1  TO  19: 0 < I ) =0: NEXT  I 

650  FOR  1=1  TO  19: PRINT  I ; A* ( 1 , I ) , : NEXT  I : PRINT: PRINT 

660  01=0: INPUT"SELECT  NUMBER  OF  PRODUCT  TO  OMIT  (PRESS  ’ENTER’  TO  RETURN)"; 01 
670  IF  01=0  THEN  RETURN 

680  IF  01<1  OR  01 >19  THEN  660  ELSE  0(01)=1:G0T0  660 


TEST. TXT 

DO  USDT **  =  USDS**  -  USQD**  ; 
OLS  USQDS*  USF'D**  US  INC  ; 


Input  Template  file  of  TROLL  statements 


BEGINNING  OF  FILE  ^ 

DO  USQTBF  =  USQSBF  -  USQD&F  ; 
OLS  USQDBF  USPDBF  USINC  ; 

DO  USQTPK  =  USQSF'K  -  USQDPK  ; 
OLS  USQDF'K  USPDF'K  USINC  ; 

DO  USOTML  =  USQSML  -  USQDML  ; 
OLS  USQDML  USPDML  USINC  ; 

END  OF  FILE 


Output  file  of 


’ cloned’ 


TROLL  statements 
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II-B.l  .  e 


COMCLONE  -  Clone  a  TROLL  Comment  for  GOL  Commodities 


5 


I 

j  c 

D4 

B  6! 

COMCLONE  takes  a  file  of  representative  TROLL  comment  statements  and  replaces 
the  $$’s  with  selected  commodity  codes  and  the  tt#’  s  with  the  commodity  description  6 
associated  with  those  codes. 

I  6 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  B,  1983 
20  PRINT  CHR* (27) ; CHR* (58) : CLEAR  5000 
30  DIM  A* (1, 19) ,D*<1,30> , P* < 1 , 19) 

40  PRINT  "COMCLONE  PROGRAM  BY  VOR" SPRINT 
50  PRINT  °  PR I NT "TH I S  PROGRAM  DUPLICATES  TROLL  COMMENTS  FROM  A  " 

60  PR I NT " MASTER  SET  CREATED  BY  A  WORD  PROCESSING  PROGRAM  AND  STORED  IN  ASCII  FORMAT" 

70  PR I NT "EACH  '**'  IS  REPLACED  BY  A  GOL  COMMODITY  CODES" 

80  PRINT"EACH  ’##’  IS  REPLACE  BY  A  GOL  COMMODITY  NAME": PRINT  ; 

90  PR I NT " PROGRAM  REQUIRES  AN  ASCII  FILE  OF  NO  MORE  THAN  31  LINES  ON  ’&’  DRIVE 
100  PR I NT "THE  NAME  MUST  BE  *******„ TXT" 

110  PRINT"THE  FIRST  LINE  CAN  CONTAIN  THE  FILE  NAME  AND  IS  NOT  CLONED" 

120  PR  I  NT "A  SAMPLE  FILE  IS:" 

130  PRINT 

140  PR I  NT "FILE  NAME" 

150  PRINT" 1ST  LINE  TO  BE  CLONED" 

160  PR I NT " 2ND  LINE  TO  BE  CLONED" 

170  PRINT"ETC. ":PRINT 

180  PR I NT "FETCHING  COMMODITY  CODES" 

190  GOSUB  510  ’  FETCH  COMMODITY  CODES 
200  PRINT: PRINT"FETCHING  COMMODITY  NAMES" 

210  GOSUB  760  5  FETCH  COMMODITY  NAMES 

220  GOSUB  570  ’  READ  IN  FILE  TO  BE  CLONED 

230  GOSUB  700  '  SELECT  PRODUCTS  TO  BE  OMITTED 

240  GOSUB  350  ’  WRITE  FILE  OF  CLONED  STATEMENTS 

250  END 

260  REM 

270  REM  - SUBROUTINE  TO  REPLACE  ’**’  WITH  A  GOL  COMMODITY  CODE - 

280  PO=INSTR <WS, "**" )  ’REPLACE  t*  WITH  GOL  COMMODITY  CODE 

290  IF  P0=0  THEN  RETURN 

300  MIDi <W$, PO) =A* (1,1): GOTO  280 

310  REM  - - - SUBROUTINE  TO  REPLACE  ’##’  WITH  GOL  COMMODITY  NAMES 

320  PO=INSTR <W4, "##">: IF  P0=0  THEN  RETURN 

330  W*=LEFT* (W*, PO-1 > +P$ (1,1) +R I GHT*  < W* , LEN ( W* ) -PO- 1 ) : RETURN 

340  REM  - SUBROUTINE  TO  WRITE  A  FILE  OF  CLONED  STATEMENTS - 

350  PRINT  CHR*.  (27)  ; CHR* (58) : PR INT" WR I  TING  FILE  OF  CLONED  STATEMENTS" : PRINT 
360  F*="B: "+F$+"C. TXT : 1":0PEN"0", 1 , F$ 

370  PR I NT "BEG INNING  OF  F I LE " : PR I NT# 1 , " BEG I NN I NG  OF  FILE" 

380  FOR  J  =  1  TO  10 

390  FOR  1=1  TO  19 

400  IF  0(I)=1  THEN  GOTO  460 

410  W*=D$ ( 1 , J ) 

420  GOSUB  280 
430  GOSUB  31 V 
440  PRINT  W* 

450  PR I NT # 1 , W$ 

460  NEXT  I 
470  NEXT  J 

480  PR  I NT "END  OF  FILE" : PRINT#1 , "END  OF  FILE" 

490  RETURN 

500  REM - - - SUBROUTINE  TO  PUT  GOL  COMMODITY  CODES  IN  A  VECTOR - 

510  W$= ” BFPKMLDMPMPEWHCNCGR I SBOSSMSOOMOODBDCDO "  ’GOL  COMMODITY  CODES  CONCATENATED 

520  PR INT: FOR  1=1  TO  19 

530  A* ( 1 , I ) =MID* (Wt, ( 1-1 ) *2+1,2) 

540  PRINT  MID$(W$, (I— 1 >*2+1,2);"  " ; 

550  NEXT  I: PR  I NT  "  " 

560  PRINT: RETURN 
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570  REM  - -SUBROUTINE  TO  READ  IN  AN  ASCII  FILE  TO  BE  CLONED - 

580  PRINT:  INPUT"ENTER  NAME  OF  'TXT''  COMMENT  FILE  ON  DRIVE  ’  B '  TO  BE  CLONED"  ;  Ft 
590  Wt="B: "+Ft+" . TXT" : OPEN" I " , 1 , Wt 
600  PRINT  CHRt (27) ; CHRt (58) 

610  PRINT  "FILE  READ  IN  IS:":PRINT 

620  PRINT  Wt 

630  LINE  I NPUT # 1 , Wt 

640  1=0 

650  I=I+1:LINE  I NPUT  # 1 , Dt  (1,1) 

660  IF  EOF ( 1 )  THEN  680 
670  PRINT  Dt(l,I):GOTO  650 

680  10=1 : CLOSE  l: PRINT  Dt ( 1 ,  1 0 ) : PR  I  NT : RETURN 

690  REM  — - ——SUBROUTINE  TO  OMIT  GOL  PRODUCTS  FROM  CLONING  PROCEDURE - 

700  PR  I NT "SELECT  PRODUCTS  TO  OMIT  FROM  CLONING" 

710  DIM  0<19):F0R  1=1  TO  19: 0 ( I ) =0: NEXT  I 

720  FOR  1=1  TO  1 9 : PR I NT  I ; At ( 1 , I ) , : NEXT  I : PRINT: PRINT 

730  01=0: INPUT"SELECT  NUMBER  OF  PRODUCT  TO  OMIT  (PRESS  ’ENTER’  TO  RETURN) "SOI 
740  IF  01=0  THEN  RETURN 

750  IF  01<1  OR  01 >19  THEN  730  ELSE  0(01>=l:G0T0  730 

760  REM - - - SUBROUTINE  TO  PUT  GOL  COMMODITY  NAMES  IN  A  VECTOR 

770  Pt ( 1 , 1 ) =" BEEF+VEAL" 

780  P*(1,2>="PDRK" 

790  Pt <1,3)="MUTT0N+LAMB" 

800  P* (1,4)=" DAIRY-MILK" 

810  P*(1,5)="P0ULTRY-MEAT" 

820  Pt ( 1 , 6) ="POULTRY-EGGS" 

830  Pt( 1,7)=" WHEAT" 

840  Pt(l,B)="CORN" 

850  Pt ( 1 , 9 >  = " OTHER  COARSE  GRAINS" 

860  Pt ( 1 , 10) ="RICE" 

870  Pt(l, 11)="S0YBEANS" 

880  Pt ( 1 , 12) ="OTHER  OILSEEDS" 

890  Pt ( 1 , 13) ="SOYMEAL" 

900  Pt ( 1 , 14) ="SOYOIL" 

910  Pt(l, 15)="0THER  MEALS" 

920  Pt ( 1 , 16) =" OTHER  OILS" 

930  Pt ( 1 , 17) =" DAIRY-BUTTER" 

940  Pt(l, 18>="DAIRY-CHEESE" 

950  Pt ( 1 , 19) =" DAIRY-OTHER  PRODUCTS" 

960  PR  I NT: FOR  1  =  1  TO  19 

970  PRINT  Pt ( 1 , I ) , : NEXT  I: PRINT 

980  RETURN 


QTCOM.TXT 
SYMCOM  USQTtt 
SYMCOM  CNQTtt 
SYMCOM  ECQTtt 
SYMCOM  JPQTtt 
SYMCOM  RWQTtt 


QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 


Input 


template 


of  TROLL  comment  statements 


TRADED 

TRADED 

TRADED 

TRADED 

TRADED 


*  UNITED  STATES  *  ##; 

*  CANADA  *  ##; 

*  EUROPEAN  COMMUNITY  *  ##; 

*  JAPAN  *  ##; 

*  REST-OF-WORLD  *  ##; 


BEG INN I 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 

SYMCOM 


NG  OF 

USQTBF 

USQTPK 

USQTML 

CNQTBF 

CNQTPK 

CNQTML 

ECQTBF 

ECQTPK 

ECQTML 

JPQTBF 

JPQTPK 

JPQTML 

RWQTBF 

RWQTPK 

RWQTML 


FILE 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 

QUANTITY 


i/ 


Output  file  of 


’ cloned  * 


TROLL  comment  statements 


TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 

TRADED 


■* 

* 


* 


* 

* 


* 


* 

* 


UNITED  STATES  *  BEEF+VEAL; 

UNITED  STATES  *  FORK; 

UNITED  STATES  *  MUTTON+LAMB; 
CANADA  *  BEEF+VEAL; 

CANADA  *  PORK; 

CANADA  *  MUTTON+LAMB; 

EUROPEAN  COMMUNITY  *  BEEF+VEAL; 
EUROPEAN  COMMUNITY  *  PORK; 
EUROPEAN  COMMUNITY  *  MUTTON+LAMB; 
JAPAN  *  BEEF+VEAL; 

JAPAN  *  PORK; 

JAPAN  *  MUTTON+LAMB; 

REST-OF-WORLD  *  BEEF+VEAL; 
REST-OF-WORLD  *  PORK; 
REST-OF-WORLD  *  MUTTON+LAMB; 
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II-B.l.  f.  MERGE  -  Merge  Files  for  Transmission  to  a  Mainframe  Computer 


MERGE  combines  selected  files  into  one  large  file.  This  is  useful,  for  example, 
if  a  set  of  files  has  to  be  transmitted  to  a  mainframe  computer;  one  large  file 
can  be  transmitted  rather  than  a  series  of  small  ones. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  17,  19S3 

20  PRINT  CHRS (27) ; CHR$ (58) 

30  PRINT"  M  E  R  G  E  BY  VOR": PRINT 

40  PR  I  NT " PROGRAM  TO  MERGE  ’.TXT’  FILES  INTO  ONE  FILE  <T. TXT)  FOR  TRANSMISSION" 
50  PRINT 

60  OPEN-O" , 1 , "B: T. TXT" 

70  PRINT :  F'R  I  NT  "ROUTINE  TO  ADD  A  NEW  FILE  TO  *T’  (HIT  RETURN  WHEN  DONE)" 

SO  INPUT"ENTER  NAME  (WITHOUT  ’.TXT’)  OF  FILE  ON  DRIVE  B  TO  BE  MERGED" J N* 

90  IP  N*=""  THEN  GOTO  150 

100  FS=”B:  "+N*+".TXT":0PEN"I",2,F$ 

110  LINE  INPUT  #2 ,  W$ 

120  IF  EOF (2)  THEN  GOTO  140 

130  PRINT  #1,W$ SPRINT  W$:60T0  110 

140  PRINT  #1,W$:PRINT  Wi'.CLOSE  2:G0T0  70 

150  CLOSE  1 : PRINT: PRINT "T. TXT  IS  DONE " : END 


II“B®lego  CMATRIX  “  Create  TROLL  Commands  to  Produce  a  Display  Matrix 


CMATRIX  creates  most  of  the  TROLL  statements  needed  to  build  display  matrices 
for  GOL  constants  and  elasticities.  Information  from  an  input  file  is  used  to 
build  the  display  matrix. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB  15,  1983 

20  CLEAR  3000 
30  GOSUB  860 

40  PRINT"  CMATRIX  BY  VOR" : PRINT 

50  PRINT" PROGRAM  TO  CREATE  A  MATRIX  TO  HOLD  CONSTANTS/ELAST I C I T I ES " : PR  I  NT 
60  GOSUB  1000  ’FETCHING  GOL  COMMODITY  CODES 

70  REM  PROGRAM  REQURES  AN  INPUT  <**. TXT)  FILE  ON  DRIVE  B  AS  FOLLOWS:" 

80  REM  LINE  1  -  NAME  OF  FILE  (AND  MATRIX) 

90  REM  LINE  2  -  TITLE  FOR  MATRIX 

100  REM  LINE  3  -  NO.  OF  COLUMNS  IN  MATRIX 

110  REM  LINE  4  -  NAME  OF  CONSTANT  IN  1ST  COLUMN  OF  MATRIX 

120  REM  LINE  5  -  TITLE  OF  1ST  COLUMN  IN  MATRIX 

130  REM  LINE  6  -  BEGINNING  VALUE  OF  CONSTANT  IN  1ST  COLUMN 

140  REM  LINES  7-9  REPEAT  LINES  4-6  FOR  2ND  COLUMN  IN  MATRIX,  ETC. 

150  REM 

160  INPUT  "ENTER  NAME  OF  INPUT  FILE  (WITHOUT  *•*.  TXT)  ON  DRIVE  B" :  N* 

170  FS="B:  "+Ni+"  .  TXT"  :  OF'EN"  I  "  ,  1,F* 

180  DIM  D$ ( 1 , 60 ) 

1 90  I O— 1 

200  REM  - - READ  INPUT  FILE 

210  LINE  INPUT  #1,D*(1,I0> 

220  IF  EOF ( 1 )  THEN  GOTO  240 

230  10=10+1: GOTO  210 

240  CLOSE  1 : 10=10-1 : GOSUB  860 

250  REM  - - WRITE  OUTPUT  FILE 

260  F$="B: "+N*+"C. TXT" : 0PEN"0" , 2, F* 

270  W$=" BEG INNING  OF  FILE": GOSUB  880 
280  GOSUB  970 
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290  WS="OUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7;": GQSUB  B80 
300  WS= "TERROR  & I GNORE " : G05UB  B80 

310  PO=INSTR  (DS ( 1 , 1) , " )-l:MS=LEFTS(DS(l, 1) ,P0) 

320  WS="DELETE  DATA  " +MS+" ; " : GDSUB  880 

330  W*="DO  -  "  +  " CRMAT (18, " +DS  <  1 , 3 )  +  "  ,  NA>?": GOSUB  880 

340  W*— "DELETE  GENERAL  LABEL_"+MS+"C; GDSUB  880 

350  WS= " LED I T  "+M*+"C; " : GQSUB  880 

360  WS= "ADD  TCP, " : GQSUB  880 

370  J 0=VAL ( DS ( 1 , 3 ) ) 

380  FOR  J  =  1  TO  JO 

390  WS=DS ( 1 ,  < J-l ) *3+5) +",": GOSUB  880 
400  NEXT  J 

410  WS=“  ;  FILE;  GDSUB  880 

420  WS=" DEBIT  "+MS+" ;": GOSUB  880 

430  WS= " COMMENT  "+DS < 1 , 2) +" I ": GOSUB  880 

440  W*= "FILE 5 GOSUB  880 

450  WS= "DELETE  GENERAL  LABEL. "+MS+"T; ": GOSUB  880 

460  WS=" LED IT  "+MS+"T; ": GOSUB  880 

470  WS=" ADD  TOP,": GOSUB  880 

480  WS=DS (1,2)+";": GOSUB  880 

490  WS="FILE; ": GOSUB  880 

500  GOSUB  900 

510  WS=”CEDIT  " +LEFT S ( DS ( 1 , 1) ,2)+" GOL 5 " : GOSUB  880 
520  WS="ADD  GOSUB  880 
530  FOR  J=1  TO  JO 
540  FOR  1*1  TO  18 

550  P0= I NSTR  <  DS  < 1 ,  (J-l) *3+4) , >-l 

560  WS=LEFTS(DS(1, (J-l)*3+4) ,P0)+"  "+DS ( 1 , ( J-l ) *3+6) +"  ," 

570  GOSUB  920 
580  GOSUB  880 
590  NEXT  I,J 

600  WS=“ ; FILE; ": GOSUB  880 
610  GOSUB  970 

620  WS— "OUTPUT  RMARG  132  FPTFIELD  14  TABWIDTH  7  ;":GOSUB  880 

630  W*="CEDIT  " +LEFT S  ( DS ( 1 , 1),2)+" GOL ; " : GOSUB  880 

640  WS«“ CHANGE": GOSUB  880 

650  FOR  J-l  TO  JO 

660  FOR  1=1  TO  IS 

670  P0=INSTR(D*<1, (J-l) *3+4) , " ’ ">-l 

680  W*=LEFT*  <D* ( 1 ,  ( J  — 1 ) *3+4)  ,  PO) +"  "+D* ( 1 ,  ( J-l ) *3+6) +“  ," 

690  GOSUB  920 
700  GOSUB  880 
710  NEXT  I,J 

720  W«-"; FILE; ": GOSUB  880 
730  W*= " DOR ANGE; ": GOSUB  880 

740  W<— "BINDVAL  CONST  "+LEFT* (D* ( 1 , 1 ) , 2) +"GOL; " : GOSUB  880 
750  FOR  J*  1  TO  JO 
760  FOR  I*  1  TO  18 

770  W»— "DOCORE  "+M*+"-MATREP ( "+M*+" , "+D* ( 1 ,  (J-l ) *3+4) +“ , "+STR* ( I ) +" , "+STRS ( J ) +" ) ; 
780  GOSUB  920: GOSUB  880 
790  NEXT  I,J 

800  W*— "DO  "+M*+"  -  "+M*+"; ": GOSUB  880 

810  GOSUB  900: GOSUB  970 

820  W*="END  OF  FILE": GOSUB  870 

830  CLOSE  2:PRINT:PRINT"FILE  ";F*;"  IS  DONE" 

840  END 

850  REM - SUBROUTINE  TO  CLEAR  SCREEN 

860  PRINT  CHR* (27) ; CHR* < 58) : RETURN 

870  REM - SUBROUTINE  TO  PRINT  A  LINE 

880  PRINT  W*: PR I NT  #2, W»: RETURN 

890  REM - SUBROUTINE  TO  PRINT  MATRIX  WRITING  COMMAND 

900  W*»" DOCORE  OPRTMAT ( "+M»+" , WDROW’ L, "+M*+"C’ L, 0, 0, -28, "+M*+"T’L, 1) ; " 

910  GOSUB  880: RETURN 

920  REM  - SUBROUTINE  TO  REPLACE  ’**’  WITH  A  GOL  COMMODITY  CODE 

930  PO*INSTR(W«, "**") 

940  IF  PO-O  THEN  RETURN 

950  M I DS ( WS , PO  > -A* (1,1): GOTO  930 

960  REM - SUBROUTINE  TO  PRINT  LINES 

980  PRINT  42,  " - + - + - + - + - + - + - 

990  RETURN 

1000  REM  - SUBROUTINE  TO  PUT  GOL  COMMODITY  CODES  IN  A  VECTOR 

1010  WS=" BFPKMLPMPEWHCNCGR I SBOSSMSOOMOODBDCDO " 

1020  DIM  AS ( 1 , 18) 

1030  PRINT: FOR  1-1  TO  18 

1040  AS (1,1) =M I DS  <  WS ,  ( 1-1 ) *2+1 , 2) 

1050  PRINT  AS (1,1);"  " ; : NEXT  I: PRINT 
1060  PR I NT: RETURN 
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.  Input  file 

WDPAR.TXT 

PARAMETERS  FOR  WORLD  MARKET  CLEARING  MECHANISM  -  WDGOL  <r-  Title  of  the  matrix 
wDCP*r^~  Number  of  columns  needed^  Constant  for  lgt  column 

CONVERGENCE  PARAMETER  FOR  WORLD  PRICE  ESTIMATE  <0<PC<1>  Title  for  the  1st  colui 

0,05  Beginning  elasticities  in  the  first  column 

WDCB**’P  & 

CONVERGENCE  BOUND  FOR  WORLD  PRICE  ESTIMATE  <0<PB<1> 

0.  10 


BEGINNING  OF  FILE 


Example  output  file 


OUTOPT  RMARG  132  FPTFIELD  14  TABWIDTH  7; 

&ERROR  8. IGNORE 

delete  data  wdpar;  Create  matrix 

DO  WDPAR  -  CRMAT  <18,  2,  NA) ; 

DELETE  GENERAL  LABEL_WDPARC  5  _ _ 

LEDIT  wdparc;  Create  matrix  labels  and  titles 

ADD  top, 

CONVERGENCE  PARAMETER  FOR  WORLD  PRICE  ESTIMATE  <0<PC<1>, 

CONVERGENCE  BOUND  FOR  WORLD  PRICE  ESTIMATE  (0<PB<1), 

5  FILE; 

DEDIT  WDPAR; 

COMMENT  PARAMETERS  FOR  WORLD  MARKET  CLEARING  MECHANISM  -  WDGOL! 

FILE? 

DELETE  GENERAL  LABEL  WDPART ; 

LEDIT  WDPART; 

ADD  TOP, 

PARAMETERS  FOR  WORLD  MARKET  CLEARING  MECHANISM  -  WDGOL; 

FILE! 

DOCORE  OPRTMAT (WDPAR, WDROW’ L, WDPARC’ L, 0, 0, -28, WDPART’ L, 1 ) ; 

CEDIT  WDGOL! 

ADD 

WDCPBF  0.05 
WDCPPK  0.05 
WDCPML  0.05 
WDCPPM  0.05 
WDCPPE  0.05 
WDCPWH  0.05 
WDCPCN  0.05 
WDCPCG  0.05 
WDCPRI  0.05 
WDCPSB  0.05 
WDCPOS  0.05 
WDCPSM  0.05 
WDCPSO  0.05 
WDCPQM  0.05 
WDCPOO  0.05 
WDCPDB  0.05 
WDCPDC  0.05 
WDCPDO  0.05 
WDCBBF  0. 10 
WDCBPK  0.10 
WDCBML  O. 10 
WDCBPM  0. 10 
WDCBPE  0. 10 
WDCBWH  0. 10 
WDCBCN  0. 10 
WDCBCG  0. 10 
WDCBRI  0.10 
WDCBSB  0. 10 
WDCBOS  0.10 
WDCBSM  0. 10 
WDCBSO  0. 10 
WDCBOM  0. 10 
WDCBOO  0. 10 
WDCBDB  O. 10 
WDCBDC  0.10 
WDCBDO  O. 10 
JFILE; 


Create  initial  elasticities 


OUTPUT  RMARG  132  FPTFIELD  14  TABWIDTH  7  ; 
CEDIT  WDGOL; 

CHANGE 

WDCPBF  0.05  , 

WDCPPK  0.05  , 
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WDCPML 

0.05 

WDCPPM 

0.05 

WDCPPE 

0.05 

WDCPWH 

0.05 

WDCPCN 

0.05 

WDCPCG 

0.  05 

WDCPRI 

0.05 

WDCPSB 

0.05 

WDCPOS 

0.05 

WDCPSM 

0.  05 

WDCPSO 

0.05 

WDCPOM 

0.05 

WDCPOO 

0.05 

WDCPDB 

0.05 

WDCPDC 

0.05 

WDCPDO 

0.05 

WDCBBF 

0.  10 

WDCBPK 

0.  10 

WDCBML 

0.  10 

WDCBPM 

0.  10 

WDCBPE 

0.  10 

WDCBWH 

0.  10 

WDCBCN 

0.  10 

WDCBCG 

0.  10 

WDCBRI 

0.  10 

WDCBSB 

0.  10 

WDCBOS 

0.  10 

WDCBSM 

0.  10 

WDCBSO 

0.  10 

WDCBOM 

0.  10 

WDCBOO 

0.  10 

WDCBDB 

0.  10 

WDCBDC 

0.  10 

WDCBDO 

0.  10 

;file; 

dorange; 

Create  elasticities  for  'change'  program 


<- 


BINDVAL  CONST  WDGOL? 

DOCORE  WDPAR-MATREP  < WDPAR, WDCPBF ’ P ,  1 ,  1 ) ; 

DOCORE  WDPAR-MATREP (WDPAR, WDCPPK’P,.  2,  1); 

DOCORE  WDPAR-MATREP (WDPAR, WDCPML’P,  3,  1)5 

DOCORE  WDPAR-MATREP (WDPAR, WDCPPM’P,  4,  1); 

DOCORE  WDPAR-MATREP (WDPAR, WDCPPE’ P,  5,  1); 

DOCORE  WDP AR=f1ATREP  ( WDPAR ,  WDCPWH  ’  P ,  6 ,  1  )  5 
DOCORE  WDPAR-MATREP ( WDPAR , WDCPCN ’  P ,  7 ,  1 ) 5 

DOCORE  WDP AR-M ATREP  ( WDPAR ,  WDCPCG  ’  P ,  8 ,  1  >  J 
DOCORE  WDPAR-MATREP (WDPAR, WDCPRI’P,  9,  1); 

DOCORE  WDP AR-MATREP (WDPAR, WDCPSB’P,  10,  1)} 

DOCORE  WDPAR-MATREP ( WDPAR, WDCPOS’P,  11,  1)5 
DOCORE  WDPAR=MATREP (WDPAR, WDCPSM’P,  12,  1)J 
DOCORE  WDPAR-MATREP < WDPAR, WDCPSO’P,  13,  1); 

DOCORE  WDPAR-MATREP (WDPAR, WDCPOM’P,  14,  1); 

DOCORE  WDPAR=MATREP (WDPAR, WDCPOO’P,  15,  1); 

DOCORE  WDPAR-MATREP (WDPAR, WDCPDB’P,  16,  1); 

DOCORE  WDPAR-MATREP  <  WDPAR , WDCPDC ’  P ,  17,  1 > ; 

DOCORE  WDPAR-MATREP (WDPAR, WDCPDO’ P,  18,  1); 

DOCORE  WDPAR-MATREP < WDPAR, WDCBBF’P,  1,  2) J 
DOCORE  WDPAR-MATREP < WDPAR, WDCBPK’P,  2,  2)? 

DOCORE  WDPAR-MATREP (WDPAR, WDCBML’P,  3,  2)? 

DOCORE  WDPAR-MATREP (WDPAR, WDCBPM’P,  4,  2); 

DOCORE  WDPAR-MATREP (WDPAR, WDCBPE'P,  3,  2); 

DOCORE  WDPAR-MATREP ( WDPAR , WDCBWH ’ P ,  6 ,  2  > ; 

DOCORE  WDPAR-MATREP ( WDPAR , WDCBCN ’ P ,  7 ,  2  >  ; 

DOCORE  WDPAR-MATREP (WDPAR, WDCBCG’P,  8,  2) S 
DOCORE  WDPAR-MATREP (WDPAR, WDCBR I ’P,  9,  2)  » 

DOCORE  WDPAR-MATREP (WDPAR, WDCBSB’P,  10,  2)1 
DOCORE  WDPAR-MATREP (WDPAR, WDCBOS'P,  11,  2) J 
DOCORE  WDPAR-MATREP (WDPAR, WDCBSM’P,  12,  2); 

DOCORE  WDPAR-MATREP (WDPAR, WDCBSO’P,  13,  2); 

DOCORE  WDPAR-MATREP (WDPAR, WDCBOM’P,  14,  2) 5 
DOCORE  WDPAR-MATREP (WDPAR, WDCBOO’ P,  15,  2); 

DOCORE  WDPAR-MATREP (WDPAR, WDCBDB’P,  16,  2); 

DOCORE  WDPAR-MATREP (WDPAR, WDCBDC’P,  17,  2) i 
DOCORE  WDPAR-MATREP (WDPAR, WDCBDO’P,  18,  2); 

DO  WDPAR  =  WDPAR; 

DOCORE  OPRTMAT  ( WDPAR,  WDROW’  l_,  WDP  ARC’  L,  0,0,  -28,  WDPART'  L.  1 )  ; 


Create  TROLL  'DOCORE' 
equations  to  put  elasticities/ 
parameters  in  the  display 
matrix 


END  OF  FILE 
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II-B.l .  hc  CCOPY  -  Copy  a 


New  File  for  Another  Country  from  a  US  File 


CCOPY  takes  any  U.S.  '.TXT*  file  and  makes  a  copy  substituting  another 
country  code  for  ’US'.  The  program  can  be  used  to  create  ’template’  files 
for  other  countries/regions  from  U.S.  files. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  21,  1983 

20  CLEAR  2000 

30  PRINT  CHR* (27) ; CHR* (58) 

40  PRINT"  C  COPY  BY  VOR" : PRINT 

50  PR I  NT " PROGRAM  TO  COPY  US  ( —  .TXT)  FILES  FOR  OTHER  COUNTRIES" : PRINT 

60  REM'  - - —AS)  FOR  COUNTRY  CODE 

70  I  NF'UT "  ENTER  2  DIGIT  COUNTRY  CODE":C* 

SO  IF  LEN(Ct)<0  OR  LEN(Ci) >2  THEN  GOTO  70 
90  PRINT SPRINT "YOU  ENTERED  -  "  ?  C* SPRINT 
100  PRINT:  W*="Y"  :  I  NF'UT  "OK  AY  (Y  OR  N)"?W* 

110  IF  LEFT* <W*, 1 ) ="N”  THEN  30 

120  REM  — - - AS)  FOR  EQUATION  FILE 

130  PRINT  CHR* (27) : CHR* (58) 

140  PRINT:  I  NF'UT  "ENTER  2  DIGIT  CODE  FOR  TYPE  OF  EQUATION  FILE  TO  BE  DUPL I  GATED 1  :  F  S 
1 5o  IF  F*=  " "  THEN  360 
160  I*="B: US"+F*+" . TXT" 

170  X*="US" 

ISO  0*="B: "+C*+F*+" „ TXT" 

190  OPEN" I  ",  1 ,  I* 

200  OPEN "0", 2,0* 

210  IF  EOF (1)  THEN  290 
220  LINE  INPUT  #1,W* 

230  PR  I  NT  SPRINT  W* 

240  Y*=C* 

250  GOSUB  310 
260  PRINT  W* 

270  PRINT  #2 , W* 

290  GOTO  210 
290  PRINT 

300  CLOSE  l: CLOSE  2  : PRINT "FILE  " ;0*:"  IS  DONE " : PR  I  NT : GOTO  120 

310  REM  ■ — - - — -SUBROUTINE  TO  REPLACE  X*  WITH  Y*  IN  W* 

320  F'=  I NSTR  <  W*  ,  X  *  ) 

330  IF  P=0  THEN  RETURN 
340  MID* (W*. P) =Y* 

350  GOTO  320 

360  PRINT: PRINT"DONE" : END 


^  Input  file 

USOF  *  * 

*  (U3PD##7  N/USLF'I  "  DEF  )**USQF**##?C 
♦USGCAU" DEF 


ECQF.TXT 

ECOF** 

*  <ECPD##?  N/ECLP I 
♦ECGCAU' DEF 


Copied  output  file  where  US  is  changed  to  EC 


DEF ) ♦♦ECOF**##’ C 


110 


II-B.2.  Utility  Programs 


II-B.2 .  a.  TDAMSC  -  Convert  TDAM  data  to  SUPERCALC  Data 


TDAMSC  takes  a  listing  of  TDAM  data  stored  on  disk  via  a  telecommunications 
package  and  creates  on  intermediate  file  ’ T. XQT’  which  can  be  read  into 
SUPERCALC  with  the  /X  command.  Thus  TDAM  data  is  inserted  into  SUPERCALC. 


A>10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  24,  1983 

20  REM  THIS  PROGRAM  REQUIRES  A  TDAM  OR  OTHER  FILE  SAVED  AS  **.TXT  ON  DISK  B 
30  CLEAR  5000 

40  REM  - - THIS  LOOP  SETS  EXPECTED  COLUMN  WIDTHS  OF  TABLE 

50  REM  CHANGE  THE  DATA  NUMBERS  IF  FFERENT  COLUMN  WIDTHS  ARE  EXPECTED 
60  REM  A  MAXIMUM  OF  14  COLUMNS  IN  TABLE  IS  EXPECTED 
70  DIM  W( 14) IFOR  1=1  TO  14 
80  READ  W ( I ) I  NEXT  I 

90  DATA  6,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9 
100  PRINT  CHR$ (27) ; CHR$ (58) 

110  PRINT"  TDAM  TO  SUPERCALC  BY  VOR  (TDAMSC) " I  PRINT 

120  PR I  NT "PROGRAM  TO  PUT  TDAM  (OR  OTHER  TABLE)  ON  DRIVE  B  INTO  SUPERCALC " I  PR  I NT 

130  INF'UT"ENTER  NAME  OF  TDAM  TABLE  ON  DRIVE  B  (WITHOUT  ’  .  TXT’)  "INS 

140  F*="B: "+N*  +  " .TXT" I  OPEN" I",  1 ,  F* 

150  DIM  D$ ( 1 , 50 > 

160  REM - — — — TABLE  READ  IN  FROM  INPUT  FILE 

170  PRINT:  PR  I  NT  "TABLE  ";F*j"  BEING  READ  "  I  F'R  I  NT 
180  11=0 

190  LINE  INPUT  #1,W* 

200  L 1 =LEN ( W* ) 

210  11=11+1 
220  X=0 

230  FOR  Jl=l  TO  14 
240  X=X+W ( J 1 ) 

250  IF  X  >L 1  THEN  270 
260  NEXT  J1 
270  J1=J1-1 
280  PRINT  W$ 

290  D*  < 1 ,  1 ) =W$ 

300  LINE  INPUT  #1,  W* 

310  PRINT  WS 

320  IF  EOF ( 1 )  THEN  360 

330  11=11+1 

340  D*(l, I1)=W$ 

350  GOTO  300 
360  11=11+1 
370  D$ (1,11) =W$ 

380  PRINT  CHR* (27) ; CHR$ (58) 

390  PRINT " SUPERCALC  CREATION  PROGRAM  BEING  CREATED " I  PR  I  NT 
400  CLOSE  1I0*="T. XQT" I 0PEN"0" , 1,0* 

410  FOR  1=1  TO  II 
420  B 1 = 1 

430  FOR  J=1  TO  J1 

440  P*=MID*(D« (1, I) ,B1,W(J) ) 

450  B 1 =B 1 +W  <  J ) 

460  IF  VAL ( Pt ) =0  THEN  PRINT  # 1 , CHR* ( 34 ) ; P*  ELSE  PRINT  #1,VAL(P*) 

470  IF  VAL ( P< ) =0  THEN  PRINT  CHR$(34);P*  ELSE  PRINT  VAL(P*) 

480  NEXT  J 

490  PRINT  #1 , "=A" ; 1+1 
500  PRINT  "=A" 5 1+1 
510  NEXT  I 
520  GOSUB  590 
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530  V*="/S, " +CHRS (27) +"Z"  +  "T,  A" 

540  PRINT  #1 ,  VS:  F'RINT  V* 

550  PRINT  #1, "/Q,Y":PRINT  " /Q , Y ” 

560  CLOSE  2: CLOSE  1 
570  SYSTEM 
580  END 

590  REM  - PUT  SUPERCALC  STATEMENTS  YOU  WANT  EXECUTED  IN  THIS  SUBROUTINE 

600  RETURN 

10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  24,  1983 

20  REM  THIS  PROGRAM  REQUIRES  A  SUPERCALC  PRN  FILE  SAVE  AS  **.PRN  ON  DISK  B 

30  CLEAR  5000 

40  REM  - THIS  LOOP  SETS  EXPECTED  COLUMN  WIDTHS  OF  TABLE 

50  REM  CHANGE  THE  DATA  NUMBERS  IF  FFERENT  COLUMN  WIDTHS  ARE  EXPECTED 

60  REM  A  MAXIMUM  OF  14  COLUMNS  IN  TABLE  IS  EXPECTED 

70  DIM  W(14):F0R  1=1  TO  14 
80  READ  W (I ) :NEXT  I 

90  DATA  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9,  9 

100  PRINT  CHRS (27) ; CHRS (5B) 

110  PRINT"  SUPER  CALC  PRN  TO  SUPERCALC  BY  VOR  (PRNSC ) " : PRINT 
120  PR ! NT " PROGRAM  TO  PUT  SUPERCALC  ’.PRN’  FILE  ON  DRIVE  B  BACK  INTO  SUPERCALC" : PRINT 
130  INPUT "ENTER  NAME  OF  SUPERCALC  ’.PRN’  FILE  ON  DRIVE  B  (WITHOUT  ’.PRN’)"; NS 
140  F*="B; "+NS  + " . PRN" : OPEN” I " , 1 , F* 

150  DIM  DS ( 1 , 50) 

160  REM - - — TABLE  READ  IN  FROM  INPUT  FILE 

170  PRINT: PRINT"TABLE  ";FS;"  BEING  READ " : PR  I NT 
200  11=0 

210  LINE  INPUT  #1 , WS 
220  L1=LEN (WS) 

230  11=11+1 
240  X=0 

250  FOR  Jl=l  TO  14 
260  X  =  X+W  <  J 1 ) 

270  IF  X  >L 1  THEN  290 

280  NEXT  J1 

290  J1=J1-1 

300  PRINT  WS 

310  DS ( 1 , 1 ) =WS 

320  LINE  INPUT  #1,  WS 

330  PRINT  WS 

340  IF  LEFTS (WS, 3) ="END"  THEN  410 

350  IF  EOF ( 1 >  THEN  390 

360  11=11+1 

370  DS ( 1 , I  1 ) =WS 

380  GOTO  320 

390  11=11+1 

400  DS ( 1 ,  I  1 ) =WS 

410  PRINT  CHRS (27) S CHRS (58) 

420  PR  I NT "SUPERCALC  CREATION  PROGRAM  BEING  CREATED" : PRINT 
430  CLOSE  1 : OS="T. XQT" : 0PEN"0" ,  1  ,  OS 
440  FOR  1=1  TO  II 
450  B 1 = 1 

460  FOR  J=1  TO  J1 

470  P$=MIDS (DS ( 1 , I ) , 81 , W ( J) ) 

480  B1=B1+W(J) 

490  IF  VAL ( PS ) =0  THEN  PRINT  4 1 , CHRS ( 34 ) 5  PS  ELSE  PRINT  #1,VAL(PS> 

500  IF  VAL ( PS ) =0  THEN  PRINT  CHRS (34); PS  ELSE  PRINT  VAL  (PS) 

510  NEXT  J 

520  PRINT  #1 ,  '*=A"  ;  1  +  1 
530  PRINT  "=A" ; I + 1 
540  NEXT  I 

550  PRINT  #1, "=A1“: PRINT  "=A1 " 

560  GOSUB  630 
570  V$="/ST,A" 

580  PRINT  #1 , VS: PRINT  VS 

590  PRINT  #1 , "/QY" : PRINT  "/QY" 

600  CLOSE  2: CLOSE  1 
610  SYSTEM 
620  END 

630  REM  - PUT  SUPERCALC  STATEMENTS  YOU  WANT  EXECUTED  IN  THIS  SUBROUTINE 

640  RETURN 
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Intermediate  T.XQT  program  of  SUPERCALC  commands 


l 


Input  TDAM  listing  of  data 


DSNAME^aMW.BOHaB.  SF'EAKEZ.  MYKEEP.  DATA  (ARWH)  ’ 

YEAR  WHSPRAR  WHCITAR  WHUXTAR  WHSMTAR 


I960 

3960 

1192 

1094 

0 

1961 

5725 

764 

2717 

0 

1962 

5700 

243 

1796 

0 

1963 

8940 

504 

3460 

0 

1964 

1  1  260 

2213 

6287 

0 

1965 

6079 

3340 

5586 

0 

1966 

6247 

175 

2233 

134 

1967 

7320 

245 

2199 

35 

1  96B 

5740 

1008 

2494 

390 

1969 

7020 

850 

2322 

0 

1970 

4920 

780 

969 

0 

1971 

5680 

675 

1629 

0 

1972 

6900 

370 

3193 

493 

1973 

6560 

269 

1582 

0 

1974 

5970 

1026 

1784 

0 

1975 

8570 

714 

3162 

0 

1976 

1  1000 

742 

5900 

0 

1977 

5700 

1  600 

1775 

0 

1978 

8 1 00 

1176 

4080 

0 

1979 

8 1 00 

1103 

4755 

0 

1980 

7780 

428 

3845 

0 

1981 

8 1 00 

413 

3626 

0 

1982 

14000 

737 

1 0000 

0 

END  DF  DATA 
READY 


1  0 

"  YEAR  W 
1 '  H  s  f”1 R  A  R  td 
"HCITAR  W 
" HU X TAR  W 
—A  2 
20 


.  \  \j 

1  960 
3960 
1  192 
1  094 
:A  4 
4  0 
1  9  6 1 

c:j  “7  er 

764 

2717 


bo 
1962 
S  7  o  0 
243 


I  I  ! 


This  CP/M  SUBMIT  program  can  be  used  to  help  get  the  intermediate  T.XQT  file 
into  SUPERCALC  and  do  the  appropriate  file  management. 


TYPE  B: T. PRN 

i  a  !  i  b  :  i  c  :  :  d  :  !  e 


i : 

YEAR 

WHSPRAR 

WHCITAR 

WHUXTAR 

WHSMTAR 

1960 

3960 

1192 

1094 

0 

4  ! 

1961 

5725 

764 

2717 

0 

5  ! 

1962 

5700 

243 

1796 

0 

6 : 

1963 

8940 

504 

3460 

0 

7 : 

1964 

11260 

2213 

6287 

0 

8  ! 

1965 

6079 

3340 

5586 

0 

9 : 

1966 

.6247 

175 

134 

10  ! 

1967 

7320 

245 

2199 

-r  er 
OJ 

1 1  ! 

1968 

5740 

1 008 

2494 

390 

12  ! 

1969 

7020 

850 

2322 

0 

13 : 

1970 

4920 

780 

969 

0 

14  ! 

1971 

5680 

675 

1629 

0 

15  ! 

1972 

6900 

370 

3193 

493 

16 : 

1973 

6560 

269 

1582 

0 

17 : 

1974 

5970 

1026 

1784 

0 

IB  ! 

1975 

8570 

714 

3162 

0 

19  ! 

1976 

1 1 000 

742 

5900 

0 

20  ! 

1977 

5700 

1600 

1775 

0 

21  ! 

1978 

8 1 00 

1  176 

4080 

0 

'™i  1 

e 

1979 

8100 

1103 

4755 

0 

n?  i 

1980 

7780 

428 

3845 

0 

24 : 

1981 

8 1 00 

413 

3626 

0 

25  ! 

1982 

1  4000 

737 

1 0000 

0 

X  SUP- 

ERA  T.CAL 
SC 

ERA  T.XQT  • 

PIP  B::  %1  .  CAL=T .  CAL. 


Final  set  of  TDAM  data  put  up  in 

a  SUPERCALC  file  by  the 
execution  of  the 

T.XQT  program  with  the  /X  command 
of  SUPERCALC. 

< - 1 
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II-B.2 .  b.  SCTROLL  -  Convert  SUPERCALC  Data  to  TROLL  Data 


SCTROLL  converts  SUPERCALC  data  (a  **.  PRN  file)  to  a  file  of  data  in  the 
TROLL  data  input  format.  This  latter  file  can  be  telecommunicated  to  the 
mainframe  computer  and  can  be  entered  into  a  TROLL  file. 

10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  10,  1983 


20  REM - SAMPLE  INPUT  FILE  REQUIRED  BY  THIS  PROGRAM: 

30  REM  NAME  USODWH  USQDCN  USQDCG 

40  REM 

50  REM  1971  33.45  45.56  44.44  33.31 

60  REM  1972  21.44  48.66  21.44  33.33 

70  REM - - - 


80  CLEAR  5000 

90  PRINT  CHR$ (27) ; CHR* (58) 

100  ON  ERROR  GOTO  1100 

110  PRINT'S  C  T  R  0  L  L  BY  VOR":PRINT 

120  PRINT: PRINT"PROGRAM  TO  CONVERT  SUPERCALC  DATA  TO  TROLL  FORMAT" 

130  PR I  NT " THE  TROLL  DATA  ON  THE  OUTPUT  FILE  CAN  BE  TRANSMITTED  TO  WCC": PRINT 

140  PRINT: PRINT"THE  DATA  FILE  READ  MUST  BE  A  SUPERCALC  ’.PRN'  FILE  AS  FOLLOWS: “ : PRINT 

150  PR I NT "1ST  LINE  -  NAMES  OF  TROLL  VARIABLES  OVER  DATA  COLUMNS" 

160  PRINT"  (NO  NAME  MEANS  DATA  COLUMN  IS  IGNORED)" 

170  PR  I  NT "2ND  LINE  -  A  BLANK  LINE" 

180  PR  I NT" 3RD  LINE  -  DATA  FOR  1ST  YEAR" 

190  PR  I  NT " 4TH  LINE  -  DATA  FOR  2ND  YEAR" 

200  PR I  NT "ETC." 

210  PRINT: PRINT"NOTE  THAT  1ST  COLUMN  OF  EACH  DATA  LINE  MUST  CONTAIN  THE  YEAR" 

220  PRINT "MISSI NG  DATA  WILL  BE  GIVEN  TROLL  VALUES  OF  ’NA’" 

230  PR  I  NT "THE  INPUT  FILE  CAN  CONTAIN  UP  TO  40  DATA  ROWS" 

240  PR  I NT: PR  I NT 

250  DIM  Y (40) , D (40, 20) , 0 (20) 

260  REM  - - —ENTER  THE  NAME  OF  THE  OUTPUT  FILE - — - 

270  INPUT "ENTER  NAME  (EXCL.  ’.TXT'  APPENDIX)  OF  OUTPUT  FILE  FOR  DRIVE  ’B'":0* 

280  0*="B: "+0*+" . TXT" 

290  0PEN"0" , 1 , 0*: PRINT 

300  PR I  NT# 1 , "BEGINNING  OF  FILE" 

310  PRINT  CHR$  (27)  ; CHR4 (58) 


TEST. PRN  VNAME1  VNAME2 


1  970 

1 00 

150 

1971 

103 

155 

1972 

120 

161 

1973 

125 

153 

1974 

108 

142 

1975 

103 

132 

1976 

105 

139 

1977 

109 

143 

1978 

131 

142 

1979 

133 

149 

1980 

127 

158 

BEGINNING  OF  FILE 

DEDIT 

VNAME1 

.1. 

1970; 

DATA 

100  103 

120 

125 

108 

DEDIT 

VNAME2 

,  1, 

1970; 

DATA 

1 50)  155 

161 

153 

142 

END  OF  FILE 


4r-" 


SUPERCALC  data 


(**. 


PRN)  input  file 


Output  file  of  data  in 


103 

105 

109 

131 

133 

127 

132 

139 

143 

142 

149 

158 

the  TROLL  data  input  format 

file; 
file; 
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II-B.2  .  c .  SCSAS 


Convert  SUPERCALC  Data  to  SAS  Data 


SCSAS  converts  SUPERCALC  data  to  the  format  needed  for  input  into  SAS. 


10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  10,  19B3 


20  REM  ————SAMPLE  INPUT  FILE  REQUIRED  BY  THIS  PROGRAM' 
30  REM  NAME  USGDWH  LJSQDCN  USQDCG 

40  REM 

50  REM  1971  33.45  45.56  44.44  33.31 

60  REM  1972  21.44  48.66  21.44  33.33 

70  REM 


80  GOSUB  1250 

90  CLEAR  5000: DIM  0(30) 

100  ON  ERROR  GOTO  1230 

110  PRINT"  SCSAS  BY  VOR" : PRINT 

120  PRINT: PR I NT " PROGRAM  TO  CONVERT  SUPERCALC  DATA  TO  SAS  DATA": PRINT 
130  PR I NT "THE  SAS  DATA  CAN  BE  TRANSMITTED  TO  WCC": PRINT 

140  PRINT: PR I NT "THE  INPUT  DATA  FILES  MUST  BE  SUPERCALC  ’ . PRN ’  FILES  AS  FOLLOWS: " : PRINT 
150  PRINT" 1ST  LINE  -  NAMES  OF  SAS  VARIABLES  OVER  DATA  COLUMNS" 

160  PRINT"  (NO  NAME  MEANS  A  COLUMN  IS  IGNORED)" 

170  PR I NT "2ND  LINE  -  A  BLANK  LINE" 

180  PR  I NT "3RD  LINE  -  DATA  FOR  1ST  YEAR- 
190  PR I NT " 4TH  LINE  -  DATA  FOR  2ND  YEAR" 

200  PR I  NT " ETC . " : PR I NT 

210  PR  I NT " NOTE  THAT  INPUT  SUPERCALC  FILE  CAN  HAVE  UP  TO  30  LABELED" 

220  PR  I NT "VARIABLES  AND  50  ROWS  (YEARS)  OF  DATA": PR  I NT 
230  DIM  D* (1,50) 

240  INPUT "ENTER  NAME  (WITHOUT  ’.TXT')  OF  SAS  OUTPUT  FILE" »  0$ 

250  "+□$+". TXT" 

260  OPEN  "0", 1,0*: PRINT 

270  PRINT  #1 , "BEGINNING  OF  FILE" 


280  REM  —————BEGINNING  OF  LOOP  TO  READ  IN  INPUT  SUPERCALC  FILE 
290  GOSUB  1250 

300  PRINT"- - - - ":PRINT:  I*="  " 


310  PRINT"ENTER  NAME  OF  SUPERCALC  INPUT  FILE  (WITHOUT  ’.PRN’  -  PRESS" 
320  INPUT "RETURN  TO  QUIT  AND  CLOSE  OUTPUT  FILE) " ; I  * : T  *  = I  * 

330  IF  1*=""  THEN  GOTO  1110 

340  LPRINT : LPRINT : I*="B: "+I*+" . PRN" : LPRINT  I* 

350  OPEN" I  ",  2, I* 

360  LINE  INPUT  #2, N* 

370  LPRINT  N* 

380  PR  I  NT  .'PRINT  "SUPERCALC  DATA  BEING  CONVERTED  TO  SAS  DATA":  PR  I  NT 
390  LINE  INPUT  #2, X* 

400  LPRINT: PRINT 

410  N 1 =  < LEN ( N* ) / 9 ) — 1 : I =0  ’FIND  NUMBER  OF  COLUMNS  IN  INPUT  FILE 

420  REM  —————CHECK  FOR  DATA  COLUMNS  WITHOUT  VARIABLE  NAMES - 

430  FOR  J=1  TO  N 1 

440  IF  MID* IN*, J*9+l,9>-"  "THEN  GOTO  470 

450  I=I+l:0(I)=J 

460  PR I NT "COLUMN  " ;J, : PRINT  MID* (N*, 3*9+1 , 9) 

470  NEXT  J 
4B0  PRINT 
490  J 1=1 
500  I -0 

510  REM  - - LOOP  TO  READ  IN  INPUT  FILE——-- — 

520  1=1+1 

530  LINE  INPUT  #2,W* 

540  IF  EOF (2) =-l  THEN  GOTO  620 
550  LPRINT  W* 

560  X*="NA" : Y*=".  ": GOSUB  1200 

570  X*=" ERROR" : Y*-“  .  GOSUB  1200 

500  D* ( 1 , I ) =W* 

590  PRINT  W* 

600  GOTO  520 
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610  REM - BEGIN  TO  WRITE  OUT  SAS  DATASET - - 

620  LPRINT  WS: X*=“NA" : YS="  .  " : GOSUB  1200 

630  XS=" ERROR" : YS="  .  GOSUB  1200 
640  PRINT  WS 
650  DS  <  1  ,  I  > =  WS 

660  I  1  =  1 : PRINT: XS="  *  DATA  FROM  "+IS:PRINT  XS:PRINT  #1,XS 
670  LPRINT: LPRINT  X* 

680  PR I  NT "DATA  ";T*;"  ;  " 

690  LPRINT  "DATA  " ;TS;"  ;" 

700  PRINT  #  1  ,  “ DAT  A  ";T*;" 

710  K0=0:L*=" INPUT  YEAR  1-9  " 


720  K5=0 

730  REM - WRITE  VARIABLES  IN  SAS  FORMAT  UP  TO  7  AT  A  TIME - 

740  FOR  K=1  TO  J1  STEP  7 
750  K5=K5+ 1 
760  J  2=K 

770  IF  J 1 < K+6  THEN  J3=J1  ELSE  J3=K+6 

780  REM  - -WRITE  VARIABLE  NAMES  AND  COLUMN  LOCATIONS - 

790  FOR  J= J 2  TO  J3 

800  K0=K0+1 : K3=K0*9+1 : WS=M I DS  < NS , 0 ( J ) *9+1 , 9) +  STRS (K3> +"-"+RIGHT* (STRS (K3+B)  ,2) 
BIO  GOSUB  1160 
820  NEXT  J 

830  WS="  ;":GOSUB  1160 
840  IF  K=1  THEN  GOTO  910 

850  W*=" "+RIGHTS (STRS (K5) , 1 > +"  " : GOSUB  1160 

860  K0=0 

870  FOR  J=J2  TO  J3 

880  K0=K0+1 : K3=K0*9+ 1 : W*=MID* (NS. 0 ( J ) *9+1 , 9) +STRS  <K3) +"-"+RIGHT* (STRS (K3+8)  ,2) 
890  GOSUB  1  1 6 C* 

900  NEXT  J 
910  NEXT  K 


920 
930 
940 
950 
960 
970 
980 
990 
1 000 
1010 
1020 
1030 
1040 
1  050 
1060 
1070 
1  080 
1090 
1  1 00 
1110 
1120 
1 1 30 
1140 
1150 
1160 
1170 
1180 
1190 
1 200 
1210 
1 220 


WS="  GOSUB  1160 

PRINT  LS SPRINT  #1,LS: LPRINT  LS 

LPRINT  "LIST  5  CARDS  ;" 

F'R  I  NT  "LI  ST  ;  CARDS  ;":PRINT  #1,"LIST 

FOR  K= 1  TO  J1  STEP  7 

J2=K 

IF  J 1 < K+6  THEN  J3=J1  ELSE  J3=K+6 
FOR  1=1  TO  II 
XS=DS (1,1) 

WS=M I DS ( XS , 1 ,9) 

FOR  J=J2  TO  J3 
WS=WS+MID$ ( XS, 0 ( J ) *9+1 . 9) 

NEXT  J 


CARDS 


PRINT  WS 
LPRINT  WS 
PRINT  #1,WS 
NEXT  I 
NEXT  K 

CLOSE  2: GOTO  290 
REM 

PRINT  #  1  ,  " END  OF  FILE": LPRINT 
CLOSE  2: CLOSE  1 
PRINT: PRINT”FILE  ";0S: 

REM - SUBROUTINE  TO 

IF  LEN (LS) +LEN (WS) <=72  THEN 
PRINT  LS  :  F'R  I  NT  #1,L*:LPRINT 
LS=LS+WS: RETURN 

REM  - SUBROUTINE  TO  REPLACE  STRING  XS  WITH  STRING  YS  IN  STRING  WS  - 

PO=INSTR (WS, XS) 

IF  P0=0  THEN  RETURN 
MIDS (WS, PO) =YS: GOTO  1200 
1230  PRINT: PR  I  NT "FILE  " ;IS;"  NOT 
1240  REM - SUBROUTINE  TO 


COMPLETED" : PRINT:  END 

PRINT  SAS  DATA  LINE  IF  NO. 
GOTO  1180 
L  s :  L  S  —  "  " 


CHARS.  >  71 


FOUND" : PRINT: CLOSE 
CLEAR  SCREEN - 


1  :  END 


1250  PRINT  CHRS (27) ; CHRS (58) : RETURN 
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SAS  output  data  file  created  from 

input  data  file  shown  with  SCTROLL  program 

I 

BEGINNING  OF  FILE 
*  DATA  FROM  B: TEST. PRN 
DATA  TEST  ; 

INPUT  YEAR  1-9  VNAME1  10- IB  VNAME2  19-27  ! 

LIST  ;  CARDS  $ 


1970 

1 00 

150 

1971 

103 

155 

1972 

120 

161 

1973 

125 

153 

1974 

108 

142 

1975 

103 

132 

1976 

105 

139 

1977 

109 

143 

1 97B 

131 

142 

1979 

133 

149 

1980 

127 

158 

END  OF  FILE 


NOTATION  FOR  ERS  GRAIN,  OILSEED,  AND  LIVESTOCK  (GCL)  MODEL  :  SYMBOL  AND 
VARIABLE  NAMES  CONTAIN  UP  TO  8  CHARACTERS  AND  ARE  FOLLOWED  BY  A  SUFFIX 
WHICH  SHOWS  THE  DECLARATION  (E.G.  CONSTANT,  EXOGENOUS  VARIABLE,  ETC.).  THE 
FIRST  2  CHARACTERS  APE  THE  COUNTRY  CODE  ANO  THE  NEXT  2,  AN  EQUATION  'TYPE* 
CODE.  THE  NEXT  2  CHARACTERS  ARE  USUALLY  A  2  DIGIT  COMMODITY  CODE.  AN 
ELASTICITY  WILL  HAVE  2  MORE  CHARACTERS  INDICATING  THE  CODE  TO  WHICH  THE 
ELASTICITY  RELATES.  GENERALLY,  THE  NUMBER  OF  CHARACTERS  IN  A  SYMBOL  HAS 
A  MEANING:  5  CHAR.  -  COUNTRY  SPECIFIC  VARIABLE,  6  CHAR.  =  COUNTRY  AND 

COMMODITY  SPECIFIC  VARIABLE,  7  CHAR. (ENDING  WITH  • I • )  =  EQUATION  INTERCEPT, 

8  CHAR.  =  COEFFICIENT/ELASTICITY.  COMMODITY  CODES  ARE:  BF  =  BEEF+VEAL, 

PK  =  PORK,  ML  -  MUTTON+LAMBI+GOAT),  DM  =  DAIRY-MILK,  PM  =  POULTRY-MEAT, 

PE  =  POULTRY-EGGS,  WB=  WHEAT,  CN  =  CORN,  CG  =  OTHER  COARSE  GRAINS, 

RI  =  RICE,  S&=  SOYBEANS,  OS  =  OTHER  OILSEEDS,  SM  =  SOYMEAL,  SC  -  SOYOIL, 

OM  =  OTHER  MEALS,  00  =  OTHER  OILS,  DB  =  DAIRY-BUTTER,  DC  =  DAIRY-CHEESE, 

DO  =  DAIRY-OTHER  PRODUCTS.  EQUATION  'TYPE*  COOES  ARE:  MD  =  MARGIN-DOMESTIC, 
MT  =  MARGIN-TRADE,  PS  =  PRICE-SUPPLY,  AR  =  AREA,  YD  =  YIELD, 

QS  =  QUANTITY-SUPPLIED,  QC  =  QUANTITY-CRUSHED,  FC  =  FEED  COST, 

LN  =  LIVESTOCK-NUMBERS,  LA  =  L I VESTOCK- ADD IT  I ONS ,  LS  =  L 1 VE ST OCK-SL AUGHT ER , 

QF  =  QUANTITY-FED,  QD  =  QUANTITY-FOOD  AND  OTHER  DEMAND,  SK  =  ENDING  STOCKS, 

QT  =  QUANTITY-TRADED,  PE  =  PRICE  ESTIMATE  (DEMAND)  WITH  TRADE  RESTRICTIONS, 

PD  =  PRICE-DEMAND.  POLICY  VARIABLE  CODES  ARE:  EQ  =  EXPORT  QUOTA, 

MQ  =  IMPORT  QUOTA,  TE  =  TAX-EXPORTS,  TM  =  TAX-IMPORTS,  TP  =  TAX-PRODUCTION, 

TC  =  TAX-CONSUMPTION.  I - 
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II-B.2 . d  .  VORPLOT  -  Plot  SUPERCALC  Data 


VORPLOT  is  a  user  friendly,  self  prompting  program  which  allows  the  user  to 
produce  plots  of  time  series  data  that  are  stored  on  SUPERCALC  **.  PRN  files. 

10  REM  CREATED  BY  VERNON  OLEY  RONINGEN  -  FEB.  20,  1983 

20  CLEAR  9000: DIM  G* (0,120) 

30  P*="ABCDEFGHI J "+CHR* ( 172) +CHR* (167)  ’ - SET  PLOT  CHARACTERS 

40  DIM  S <40, 10) , B* (0, 10) , 0 (30) : A*=STRING* <9, "  " ) 

50  DEFINT  I -L , N , R : R 1 =0 : R2=0 : R3=0 

60  LB=80:  L7=24  ’ - SET  SCREEN  PARAMETERS 

70  LPRINT  CHR* (27) ; "2" : GOSUB  2890  J - PUT  MENU  ON  SCREEN 

80  PRINT"  V  0  R  P  L  0  T  BY  VOR  -  PROGRAM  TO  PLOT  ANNUAL  TIME  SERIES  DATA": PR  I  NT 

90  PRINT"  1  INPUT  DATA  FROM  KEYBOARD "  ;  : I = 1 : GOSUB  260 

100  PRINT"  2  INPUT  DATA  FROM  SUPERCALC  F I LE " S : I =2 : GOSUB  260 

HO  PRINT"  3  INPUT  DATA  FROM  ’DIF’  F I LE " ; : I =3 : GOSUB  260 

120  PRINT"  4  SELECT  VARIABLES  FOR  PLOTT I NG " S : I =4 : GOSUB  260 

130  PRINT"  5  CREATE  GRAPH  LAYOUT" H 1=5: GOSUB  260 

140  PRINT"  6  PLOT  LINE  GRAPH" 5 : 1=6: GOSUB  260 

150  PRINT"  7  PLOT  BAR  GRAPH" 1=7: GOSUB  260 

160  PRINT”  8  VIEW  GRAPH  ON  SCREEN I =8 : GOSUB  260 

170  PRINT"  9  SEND  GRAPH  TO  PRINTER" :: 1=9: GOSUB  260 

180  PRINT" 10  END": PRINT 

190  INPUT "SELECT  NUMBER " ; R 

200  IF  R< 1  OR  R  10  THEN  70 

210  IF  < R > 3  AND  R<10>  AND  Ri=0  THEN  70 

220  IF  (R>4  AND  R<10)  AND  R2=0  THEN  70 

230  IF  < R >5  AND  RHO)  AND  R3=0  THEN  70 

240  ON  R  GOSUB  280  ,590  ,930  ,1490  ,1630  ,960  ,1160  ,1280  ,2590  ,2880 

250  GOTO  70 

260  PRINT  TAB (37) MID* (A*, I, 1) : RETURN 
270  MID* (A*, I, 1 >="*": RETURN 

280  Rl  =  l  :  1  =  1  :  GOSUB  270  '-——SUBROUTINE  TO  INPUT  DATA  FROM  KEYBOARD 

290  GOSUB  2890: PRINT"ENTER  DATA  FROM  KEYBOARD  (UP  TO  10  VARS . ) " : PR I NT 

300  MID* (A*, 2, 8) ="  " :R2=0:R3=0 

310  INPUT "NUMBER  OF  VAR  I ABLES" ; J9 

320  IF  J9< 1  OR  J  9  >  1 0  THEN  310 

330  PRINT: INPUT"ENTER  BEGINNING  YEAR"; XI 

340  INPUT"ENTER  ENDING  YEAR";X9 

350  I 9=X9-X 1+1 

360  IF  I 9 >40  OR  X1>X9  THEN  330 

370  PRINT: W*="Y" S PRINT"NO.  OF  VARS.  =  ";J9 

380  PR I NT "BEG INNING  YEAR  =  ";X1 

390  PRINT"ENDING  YEAR  =  " ; X9 

400  PRINT: INPUT "OKAY  (Y  OR  N)";W* 

410  IF  LEFT* (W*, 1 ) ="N"  THEN  290 

420  FOR  1=1  TO  I9:S(I,0)=Xl+I-l:NEXT  I 

430  FOR  J=1  TO  J9 

440  GOSUB  2890:  PRINT"ENTER  NAME  <9  CHAR.  OR  LESS)  FOR" 

450  PR  I NT "VAR I ABLE  NO.  ";J?: INPUT  B* (O, J ): PRINT 
460  FOR  1=1  TO  19 

470  PRINT"VALUE  FOR  DBS.  NO.  "SI;: INPUT  S(I,J) 

480  NEXT  I 

490  GOSUB  2890: PR  I NT  B* (0, J) : PRINT 

500  FOR  1  =  1  TO  19: PRINT  I ; S < I , J > , : NEXT  I : PR  I NT 

510  W*="N": INPUT"CORRECTIONS  (Y  OR  N)";W* 

520  IF  LEFT* ( W*, 1 ) ="Y"  THEN  530  ELSE  570 
530  PRINT: INPUT "WHICH  0BS."SI1 
540  IF  1 1 < 1  OR  II >19  THEN  530 
550  PRINT:  INPUT "CORRECT  VALUE" ; S ( 1 1 , J > 

560  GOTO  490 
570  NEXT  J 
580  RETURN 

590  Rl=l : 1=2: GOSUB  270  ’ - SUBROUTINE  TO  INPUT  DATA  FROM  SUPERCALC  FILE 

600  MID* (A*, 3. 7) ="  " :R2=0:R3=0 

610  MID* (A*, 1 , 1 ) ="  " 

620  GOSUB  2890: PRINT"ENTER  DATA  FROM  SUPERCALC  FILE" 

630  PR  I NT " UP  TO  10  LABELED  VARIABLES  CAN  BE  ENTERED  FROM  A  FILE" SPRINT 
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640  INPUT "ENTER  NAME  OF  FILE  (WITHOUT  ' . PRN’ ) "!F*:F*="B: "+F*+" . PRN" 

650  OPEN" I  "  , 1 , Ft: FOR  1=1  TO  1 1 : 0 < I > =0 : NEXT  I 
660  PRINT: PR I NT" READING  FILE": PRINT 
670  J9=0: LINE  INPUT#1 , W*: N=LEN  <W*) /9 
680  FOR  J=2  TO  N 

690  IF  MID* (W*,  < J-l ) *9+1 , 9) =  "  "THEN  720 

700  J 9= J 9+ 1 : B* (0, J9) =MID*  (W*,  ( J-l ) *9+1 , 9) : 0 ( J ) =1 
710  PRINT  J9,B*(0,J9) 

720  NEXT  J 

730  LINE  I NPUT # 1 , W* 

740  1 9=0 : PR  I NT 
750  18=0 

760  LINE  INPUT#1,W$: 19=19+1 
770  IF  EOF ( 1 ) THEN  CLOSE  1:19=19-1:18=1 
780  S (19, O) =VAL (MID* ( W*, 1,9)): 3=0 
790  PRINT  5(19,0)  , 

BOO  FOR  1=2  TO  N  STEP  l:IF  0 ( I ) =0  THEN  S60 
BIO  3=3  +  1 

020  U*=MID*(W*, (1-15*9+1,9) 

B30  GOSUB  B80 
840  S  < 19, J ) =VAL (U* ) 

850  PRINT  J; ")  " j  S ( 19, J ) , 

860  NEXT  I: PRINT 

870  IF  I 8=0  THEN  GOTO  760  ELSE  RETURN 
880  Z*=U* 

890  IF  I NSTR ( Z * , "  —  " ) =0  THEN  RETURN 

900  IF  LEFT  * ( Z* , 1>="  "THEN  Z*=R I GHT* ( Z* , LEN ( Z* ) — 1 ) ELSE  920 
910  GOTO  900 
920  U*=z*: RETURN 

930  Rl  =  l:  1=3:  GOSUB  270  -’INPUT  DATA  FROM  DIF  FILE 
940  RETURN 

950  REM  -------- — -SUBROUTINE  TO  PUT  LINE  DATA  ON  GRAPH 

960  GOSUB  2890: PR I NT "PUT  LINE  DATA  ON  GRAPH" : 1=6: GOSUB  270  ’PUT  LINE  DATA  ON  GRAPH 
970  W$="N" : PRINT : INPUT"CONNECT  POINTS  (Y  OR  N)"fW* 

980  FOR  3=1  TO  39 
990  IF  0<J)=0  THEN  1140 
1000  FOR  1=1  TO  19 
1010  K4=K3+4+ < I — 1 ) *5+ 1 
1020  M6=S(I, J) 

1030  N=N2- ( I  NT  < ( (M6-M1+M5/10) / (M9-M1+M5/5) ) +N1+5) ) 

1040  MID* (G*  <0, N)  , K4 ,  1 ) =MI D* ( P* , J ,  1) 

1050  IF  LEFT  * ( W* , 1 ) = " Y "  THEN  1060  ELSE  1130 

1060  IF  1=19  THEN  1130 

1070  M7=(S(I+1, J)-5(I, J) )/5 

1000  FOR  11=1  TO  4 

1090  M8=M6+I 1*M7 

1100  N=N2-(INT( ( (M8— M1+M5/10) /(M9-M1+M5/5) )*Nl+5) ) 

1110  IF  M8>= (M9— (N-5) *M5/5)  THEN  MID* (G* (0, N) , K4+I 1,1) =MID* (F*, 11,1)  ELSE  MID* (G* (0. 
1120  NEXT  II 


1130  NEXT  I  N) , K4+1 1,1) =MID*  (P*, 12,1) 

1140  NEXT  J: RETURN 

1150  REM  -————SUBROUTINE  TO  PUT  BARS  ON  GRAPH 


1160  GOSUB  2890: PR I NT "PLOTTING  BARS  ON  GRAPH": 37=0: I =7: GOSUB  270  ’PUT  BARS  ON  GRAPH 

1170  FOR  37=1  TO  39 

1180  IF  0(37) =0  THEN  1260 

1190  FOR  1=1  TO  19 

1 200  K5=K3+4+ < I - 1 ) *5+ 1 

1210  N=N2—  < I NT (  (  <S ( I , 37) -M1+M5/ 10) / (M9-M1+M5/5)  >  +N1+5)  ) 

1220  FOR  3=N  TO  Nl+5 
1230  W*=MID* <P*,37, 1) 

1240  MID* (G* (0,3) , K3+4+ ( I -1 ) *5+ 1 , 3) =W* 

1250  NEXT  3,1 
1260  NEXT  37: RETURN 


1270  REM  —————SUBROUTINE  TO  VIEW  PART  OF  GRAPH  ON  SCREEN 

1280  GOSUB  2890 : PR I NT " PR I NT  PART  OF  GRAPH  ON  SCREEN" : PRINT: 1=8: GOSUB  270  ’PRINT  ON  SCREEN 
1290  PR I NT "MAX  I MUM  =  " ; M9: PR  I NT" MINI MUM  =  "SMI 


1300  PR I NT "STEP  INTERVAL  =  " 5  MS 

1310  PR  I  NT '.PRINT  "BEG  INNING  YEAR  =  "?S(1,0) 

1320  PRINT  "ENDING  YEAR  =  " ; S ( 19,0) 

1330  PRINT: PR I NT "SELECT  YEAR  FOR  LEFT  OF  GRAPH" 
1340  INPUT"YEAR"; Z1 
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1350  IF  Z1<S(1,0)  OR  Z 1 >S ( 19, 0)  THEN  1340 
1360  J1=Z1 
1370  M3=M9 

1380  IF  M3 >M9  OR  M3<M1  THEN  1370 

1390  N5=INT( (M9-M3+M5/10) / (M5/5) > +5 

1400  FOR  J=1  TO  19 

1410  IF  J1=S(J,0)  THEN  1430 

1420  NEXT  J: 1 1  =  1: GOTO  1440 

1430  I1=J 

1440  GOSUB  2890:  FOR  N=N5  TO  N5+L7-2 

1450  PRINT  MID* (G*  (0,  N> , 4,K3+1 >  J MID* (G*  <0, N) , K3+2+ ( 1 1 - 1 ) *5+3, L8-K3-2 ) 

1460  NEXT  N 

1470  PRINT  MID*  <6*  <0, Ni+7) , K3+1  + ( 1 1  — 1 ) *5, L8—K3) ?  : INPUT  W*: RETURN 
1480  REM - - - — - SUBROUTINE  TO  SELECT  VARIABLES  FOR  PLOTTING 

1490  GOSUB  2890: R2=i: 1=4: GOSUB  270  : PRINT"SELECT  VARIABLES  FOR  PLOTTING" : PRINT 

1500  R3=0: FOR  1=5  TO  9: MID* ( A*, I , 1 ) ="  " : NEXT  I 
1510  FOR  J=i  TO  J9:0(J)=0:NEXT  J 

1520  PR  I NT " BEG I NN I NG  YEAR  =  “ ? S ( 1 , 0) , "ENDING  YEAR  =  " ; S ( 19, 0) : PRINT 

1530  FOR  J=1  TO  J9:  PR  I  NT  J  |  "  )  ;  B*  <  0,  J  )  ,  :  NEXT  J  :  PRINT :  PRINT :  K=0 

1540  INPUT "SELECT  VARIABLE  FOR  PLOT  (ENTER  ’0’  WHEN  DONE) " } L 1 : K=K+ 1 

1550  IF  LI =0  THEN  1580 

1560  IF  L1<0  OR  LI >J9  THEN  1540 

1570  0(Ll)=i:G0T0  1540 

1580  PRINT : PR INT"VARI ABLES  SELECTED  ARE:",:FOR  J  =  1  TO  10 
1590  IF  0(J)=0  THEN  1610 
1600  PRINT  B* (0, J) , 

1610  NEXT  J:PRINT:W*="Y":PRINT 

1620  INPUT "OK  (Y  OR  N)"|W*:IF  LEFT* < W*, 1 ) ="N"  THEN  1490  ELSE  RETURN 

1630  GOSUB  2100  : GOSUB  2430  : GOSUB  2480  ’ - SUBROUTINE  TO  CREATE  GRAPH  BACKGROUND 

1640  GOSUB  2890: PRINT"CREATING  GRAPH  LAYOUT" 

1650  R3=l: 1=5: GOSUB  270 
1660  K3=LEN  <  STR* ( M9 ) ) 

1670  K0= < 19-1 > *5+1 
1680  K 1 =2+K3+2+K0+3 
1690  N2=5+Nl+5 

1700  W*=STRING*  <K1 , "  " ) : MID* ( W*, 1 . . . : MID* ( W*, K1 , 1 ) =" ' " 

1710  FOR  N=1  TO  N2 
1720  GOSUB  2080  SNEXT  N 

1730  W*=STRING* <K1, MID* (W*, 1 )="+": MID* (W*, K1 , 1 ) ="+" 

1740  N=l: GOSUB  2080  :N-N2: GOSUB  2080 
1750  N-3: GOSUB  2090 

1760  MID*  <W*,  (Kl-LEN  <T*) ) /2) =T*: GOSUB  2080 

1770  N=4: GOSUB  2090 

1780  MID* (W*, 3) =Y*: GOSUB  2080 

1790  GOSUB  2020  : GOSUB  2050 

1800  FOR  N=6  TO  N1 +5: GOSUB  2090 

1810  Y=M9—  <N— 6) *M5/5 

1820  IF  ( <Y/M5)-INT(Y/M5) ) =0  THEN  1830  ELSE  1890 

1830  Z=Y: GOSUB  2570  2  Y=Z 

1840  M I D*  <  W* , 3+K3-LEN  < STR* ( Y ) > )=STR*(Y) 

1850  MID*(W»,K3+4, 1 ) ="+" 

1860  IF  J5=0  THEN  1900 
1870  MID* <W*,K3+5) =Y* 

1880  GOTO  1920 

1890  MID*  <W*, K3+4, 1 ) ■" ! " 

1900  IF  15=0  THEN  1920 
1910  MID*  <W*, K3+5) =TS 
1920  GOSUB  2080 
1930  NEXT  N 

1940  N=N 1+6: GOSUB  2090 

1950  MID* (W*,K3+5)=Y*: GOSUB  2080 

1960  Y*=STRING* (KO+4, "  ") 

1970  FOR  1=1  TO  19 

1980  MID*  <  Y»,  ( I - 1 ) *5+1 ) =STR* ( I NT ( S  < 1 , 0 ) ) ) : NEXT  I 

1990  N=N 1 +8 : GOSUB  2090 

2000  MID* (W*, K3+2) =Y*: GOSUB  2080 

2010  RETURN 

2020  Y*=STRING* <K0, )  ’CREATE  HORIZONTAL  GRAPH  LINES 

2030  FOR  K= 1  TO  KO  STEP  5 

2040  MID*  <Y*,K, 1)="  +  ": NEXT  K: RETURN 

2050  T*=STRING* (KO, "  " )  ’CREATE  VERTICAL  GRAPH  LINES 

2060  FOR  K= 1  TO  KO  STEP  5 

2070  MID* (T»,K, 1) =" * ":NEXT  K: RETURN 

2080  G*(0,N)=W*: RETURN 

2090  W*=G*<0,N) : RETURN 
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2100  GOSUB  2890: PR I NT "CALCULATING  MAX-MIN  VALUES  FOR  PLOT  DATA" 

2110  V1-9E+37: V9-« -9E+37 

2120  FOR  1=1. TO  19: FOR  J=1  TO  J9  'SELECT  SCALE  VALUES  FOR  GRAPH 

2130  IF  0(J)«0  THEN  2160 

2140  IF  S  <  I ,  J  ) >V9  THEN  V9-S < I , J ) 

2150  IF  S(I,JXV1  THEN  V1*S  ( I ,  J  ) 

2160  NEXT  J,  I 

2170  GOSUB  2090:  PRINT"MAX  IMUM  =>  ”|V9 
2180  PR INT"MINI MUM  -  "5 VI 
2190  PR I NT "DIFFERENCE  -  " I V9-V1 : PRINT 
2200  INPUT "SELECT  TOP  OF  Y  SCALE  "  I  M9 
2210  IF  M9<V9  THEN  2200 

2220  INPUT "SELECT  BOTTOM  OF  Y  SCALE  "I  Ml 
2230  IF  Ml >V 1  THEN  2220 
2240  IF  Ml >«M9  THEN  2170 

2250  INPUT "SELECT  STEP  INTERVAL  FOR  Y  SCALE  " 5 MS 

2260  IF  M5-0  OR  M5<  <  <M9-M1 > / 100)  THEN  2250 

2270  IF  < (M9/M5) -INT (M9/M5) >  <  >0  THEN  2250 

2280  IF  < (M1/M5)— INT (M1/M5) ) < >0  THEN  2250 

2290  IF  (M9-M1XM5  THEN  2250 

2300  Z=M9: GOSUB  2570  :M9-Z 

2310  Z=Ml: GOSUB  2570  :M1»Z 

2320  Z=M5*.  GOSUB  2570  :M5»Z 

2330  Nl-< (M9-M1) /M5)*5+l 

2340  IF  N1 >100  THEN  2250 

2350  PRINT : PRINT "TOP  OF  Y  SCALE  *  " I M9 

2360  PR I NT "MAX  I MUM  DATA  VALUE  -  " 5 V9 

2370  PR I NT "MINI MUM  DATA  VALUE  «  "I  VI 

2380  PR  I NT "BOTTOM  OF  Y  SCALE  *  "5  Ml 

2390  PR I NT "STEP  INTERVAL  FOR  Y  SCALE  »  "IMS 

2400  PRINT"NUMBER  OF  GRAPH  LINES  -  " JN1 

2410  PRINT: W**"Y": INPUT "OK  <Y  OR  N)"|W* 

2420  IF  LEFT*  <  W*, 1)»"N"  THEN  2170  ELSE  RETURN 

2430  GOSUB  2090: PR I NT "ENTER  TITLE  FOR  GRAPH" :T*»" ": Y*»"": INPUT  T*: PR I  NT 
2440  INPUT "ENTER  LABEL  FOR  Y  SCALE" I Y*: PRINT 

2450  PR INT" TITLE  IS: " : PRINT  T*: PRINT: PRINT"LABEL  IS:  "|Y*:PRINT 
2460  W*-"Yn: INPUT "OK  (Y  OR  N) " I W* 

2470  IF  LEFT*  < W*, 1)-"N"  THEN  2430  ELSE  RETURN 

2480  GOSUB  2890: W*=*"N" : INPUT"HORI ZONTAL  (X)  GRID  <Y  OR  N)  " I W*  'SELECT  GRID  FOR  GRAPH 
2490  IF  LEFT*  < W*, 1)-"Y"  THEN  J5=l  ELSE  J5-0: W*-"N" 

2500  INPUT "VERT I CAL  (Y)  GRID  <Y  OR  N>  “ J W* 

2510  IF  LEFT  *  <  W* , 1)*"Y“  THEN  15-1  ELSE  15-0 
2520  PRINT: PRINT"YOU  HAVE  CHOSEN: M 

2530  PR I NT "HQR I ZONTAL  GRID  " J : IF  J5-1  THEN  PRINT  "Y"  ELSE  PRINT  "N" 

2540  PR I NT" VERT I CAL  GRID  "j:IF  15-1  THEN  PRINT  "Y"  ELSE  PRINT  "N" 

2550  W4»“ Y" : PRINT: INPUT"OK  (Y  OR  N)"|W* 

2560  IF  W*-"N"  THEN  2480  ELSE  RETURN 
2570  Z  —  I NT ( Z * 1 00 ) / 1 00 : RETURN 

2580  REM - - - - -SUBROUTINE  TO  SEND  GRAPH  TO  PRINTER 

2590  GOSUB  2890: PRINT"GRAPH  GOING  TO  PRINTER" : 1-9: GOSUB  270  ’PRINT  GRAPH 
2600  LPRINT  CHR*<27) } " 1 " 

2610  N4-8  'NO.  OF  SPACES  BEFORE  AND  AFTER  GRAPH 

2620  GOSUB  2820 

2630  FOR  N— 1  TO  N2 

2640  LPRINT  MID*(G*(0,N) , 1, 132) 

2650  NEXT  N: GOSUB  2710 

2660  IF  XI <—132  THEN  RETURN 

2670  FOR  N— 1  TO  N2 

2680  LPRINT  MID* <G* <0, N) , 133, K1 ) 

2690  NEXT  N 

2700  GOSUB  2820  : RETURN 

2710  IF  K1 >132  THEN  K3-132  ELSE  K3-K1 

2720  GOSUB  2830  : LPRINT  W*:T*«"KEY  FOR  GRAPH: 

2730  FOR  J-l  TO  J9 

2740  IF  0<J)=0  THEN  2780 

2750  Y*— MID*  <P*, J , i)+"  -  "+B*<0,J)+" 

2760  IF  (LEN (T* ) +LEN  < Y* ) +4) >K3  THEN  GOSUB  2850 
2770  T*-T*+Y* 

2780  NEXT  J 

2790  GOSUB  2850 

2800  GOSUB  2B40  : LPRINT  W* 

2810  GOSUB  2820  : RETURN 
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(N  r-l  CM  (N 


2820 

2830 

840 

850 

860 

870 

2880 

2890 


FOR  1=1  TO  N4: LPRINT: NEXT  I : RETURN 
W*=STRING* (K3, "  " ) :MID*(W*, 1)=" ' 
W*=STRING* ( K3, ) : MID* (W* , 1 ) =  "  +  " : 
GOSUB  2830 
MID* (W4, 3)  =T* 

LPRINT  W*:  T*^"1 :  GOSUB  2830:  LPRINT 
END 

PRINT  CHR* (27) ; CHR* (58) : RETURN  ' — 


MID* <W* , K3, 1 ) = 
MID*  ( W* ,  K3,  1  )  = 


W*: RETURN 


1  " : RETURN 
+  " : RETURN 

-SUBROUTINE  TO  CREATE  BORDER  FOR  GR 
-SUBROUTINE  TO  CREATE  LINE  FOR  QRAP 


SUBROUTINE  TO  CLEAR  SCREEN 


The  format  of  the  input  file  is  that  of  the  input  file  to 


the  SCTROLL  program. 


LABEL  GOES  L 1 NE  GRAPH  WITHOUT  GRID 

180 

160  f 

I  E 

I 

140  + 

i 
i 
i 
i 

120  + 


100  +A 


A  A  A 

+  —  + - + - + - + - -4- - + - + - + - + 

1970  1971  1972  1973  1974  1975  1976  1977  1978  1980 

+ - - - - - 

,  — - 


KEY  FOR  GRAPH: 
B  =  VNAME2 


A  = 


VNAME1 


/ 


LABELS§8IbEHk£^E  GRAPH  0F  TEST  DATA  WITH  A  GRID 


180 

160 

140 

1  20 


100  +A— 

-i - 

1970 


__A_ 

1971 


1972  1973  1974  1975 


1976  1977  1978  1980 


,  KEY  FOR  GRAPH:  A  =  VNAME 1 

]  B  =  VNAME2 


Sample  VORPLOT  plots  of  the  data  in  the  input  data  file  shown  with  the 
SCTROLL  program. 
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1  PHr^RAPH  WI™  GRID  AND  CONNECTED  POINTS 


i  i 

s  i 

t  i 


1 80 

it  i  i  i  i  i 

i  i  i  i  i 

t  i  i  i  i 

i  i  i  i  i 

160  - f - 1“ 

It,  '  T  ’  *  I  ’  ’  ’  ft  I  I 

I  Y’  ’  >  I  I  T*  I  I 

II  I  I  I  *  •  £  I 

140  ++ - -+ - + — ■ — -4— — — 4— 

II  I  I  1  I  •  5  I 


T  T  T  9 


i  i 
i 


120  ++- 


i  i 


i  i 

•  a 

—A 

i  ’  i  »  » 

»  i  i 

i  I 

i  i 


pi  » 
?> 


* » i 


S.%LL 


I 


Pi  ’ 

I 

A. 

’  i 


>  ’  $ 


i  i 

’  a  1 

I  A’ ’  1  1  i  *  ’  A 

100  +Af,,*-+ - +— — + - LL$LL 

-i-Z-JLZ _ i _ „ _ i _ _ _ l  _ _ _  _ , _ i _ 


A  ’ 
_ 


A’ 

*  » V 


1970  1971  1972  1973  1974  1975  1976  1977  1978  1980 


KEY  FOR  GRAPH: 
Ei  =  VNAME2 


VNAME1 


LABEL  GOES  HERE 
180  + 
i 


SAMPLE  BAR  GRAPH 


160 


i 

'  -f 

140  +  * 

!  El 

120  +’-< 
1 


100  +B 


- - 1 - + - +  - - H - + - - — b - H - + - 


1970  1971  1972  1973  1974  1975  1976  1977  1978  1980 


KEY  FOR  GRAPH: 
El  =  VNAME2 


+ - - - - - ■ - A 


The  program  offers  several  options  including  grids, 
between  time  series  data  points.  The  program  allows 
plot  on  the  CRT  before  sending  it  to  the  printer. 


bar  plots,  and  marks 
the  user  to  view  part 


of 


the 
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II-E.2. e 


SCMERGE  -  Merge  Two  SUPERCALC  Files 


SCMERGE  allows  the  user  to  take  two  SUPERCALC  files  with  the  same  row-colum 
structure  but  different  data  and  merge  them  to  form  a  new  SUPERCALC  file.  A 
user  inserted  arithmetic  routine  sets  the  data  merging  conditions.  This  program 
is  useful  in  those  circumstances  where  two  SUPERCALC  files  and  some  simple 
arithmetic  imply  a  third  file.  The  output  file  is  labeled  SCM.XQT  and  is 
read  into  SUPERCALC  by  the  /X  command. 


10  REM  PROGRAM  BY  VERNON  OLEY  RONINGEN,  MAR.  15,  1983 

20  CLEAR  5000 

30  PRINT  CHRt (27) ; CHRt (58) 

40  PRINT"  SCMERGE  BY  VOR":PRINT 

50  PR  I NT "PROGRAM  TO  MERGE  2  SUPERCALC  FILES  WITH  SIMPLE  ARITHMETIC" 

60  PR  I  NT " A  3RD  FILE  IS  PRINTED  WHICH  IS  THE  SUM,  DIFF.,  ETC.  OF  THE  " 

70  PR I NT"2  FILES  AND  WHICH  CAN  BE  LOADED  INTO  SUPERCALC  BY  THE  /X  COMMAND" 

80  PRINT"THE  3RD  FILE  IS  NAMED  ’SCM’":PRINT 

90  PR I  NT "THE  FILES  TO  BE  READ  FROM  DRIVE  B  IN  MUST  BE  SUPERCALC  ’CONTENT’  FILES" : PRINT 

100  I NFUT "ENTER  NAME  OF  1ST  SC  CONTENT  FILE"; Ft 

110  I  NF'UT  "ENTER  NAME  OF  2ND  SC  CONTENT  FILE"  ;Gt 

120  Pt=”B: "+Ft+" . PRN” : OPEN" I " , l,Pt 

130  Qt="B: "+Gt+” . PRN" : OPEN" I " , 2, Ot 

140  0PEN"0" ,3, "B: SCM. XQT" 

150  At= " " 

160  IF  EOF ( 1 )  THEN  520 
170  IF  EOF (2)  THEN  520 
180  PRINT 

190  LINE  INPUT  #l,Wt 
200  LINE  INPUT  #2, Xt 
210  PO=INSTR (Wt, "=") 

220  IF  P0=0  THEN  490 
230  P0= I NSTR ( Wt , "  " )-i 
240  P1=INSTR (Wt, "=" ) +2 
250  P2=INSTR ( Xt, "=" ) +2 
260  P3=LEN ( Wt ) 

270  F'4=LEN(Xt) 

280  St=RIGHTt (Wt, P3-P1+1 ) 

290  Tt=R  I GHT t ( Xt, P4-P2+1 ) 

300  Mt= "  =  " +LEFT t (Wt, PO) 

310  IF  VAL (LEFTt (St, 1 ) ) =0  AND  LEFTt (St, 1 ) < >"0"  THEN  330  ELSE  320 
320  IF  LEFTt (St, 1 ) =CHRt (34)  THEN  330  ELSE  350 
330  Nt^St 
340  GOTO  420 

350  REM - SUBROUTINE  TO  ADD,  SUBTRACT,  ETC.  TWO  VALUES 

360  Z  1  =VAL ( St ) 

370  Z2=VAL<Tt) 

380  REM  - THIS  IS  ARITHMETIC  STATEMENT  TO  CHANGE  FOR  DIFFERENT  OPERATIONS 

390  Z-Z 1-Z2 

400  REM- - - - - - - - — - - - 

410  Nt=STRt(Z) 

420  PRINT  Wt; 

430  PRINT  TAB (40) Ml 
440  PRINT  Xt; 

450  PRINT  T AB ( 40) Nt 

460  IF  At=R I GHT t ( Mt ,  1 )  THEN  470  ELSE  PRINT  #3,Mt 
470  PRINT  #3, Nt 
480  At=RIGHT*<Mt, 1 ) 

490  GOTO  160 
500  GOTO  520 

510  PRINT : PR I NT "FILES  ";Ft;"  AND  " jGt;"  ARE  NOT  IN  THE  SAME  FORMAT ": PR  I  NT 
520  PRINT  #3,"=A1" 

530  PRINT : PR  I NT "FI LE  B:SCM.XQT  IS  READY" 

540  CLOSE  l: CLOSE  2: CLOSE  3: END 
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cn  -t.  u 


XI-B.2 .f .  SCTHIN 


Thin  (Select  Out  Data)  SUPERCALC  File 


SCTHIN  is  a  simple  program  which  allows  a  SUPERCALC  sub-file  to  be  created 
from  a  master  file  by  a  user  supplied  selection  criterion.  This  program  can, 
for  example,  create  a  file  which  contains  only  numbers  greater  than  1  from  a 
file  which  contains  a  whole  range  of  numbers.  The  output  file  is  labeled  T.XQT 
and  can  be  read  into  SUPERCALC  by  the  /X  command. 


O  REM  PROGRAM  BY  VERNON  OLEY  RON INGEN,  MAR.  15,  1983 

0  CLEAR  5000 

0  PRINT  CHR* (27) ; CHR* (58) 

0  PRINT"  S  C  T  H  I  N  BY  VOR": PRINT 

0  PR I NT " PROGRAM  TO  THIN  A  SUPERCALC  PILE  BY  A  SIMPLE  CRITERION 
60  PRINT "A  THINNED  FILE  IS  PRINTED  ON  DISK" 

70  PRINT" WHICH  CAN  BE  LOADED  INTO  SUPERCALC  BY  THE  /X  COMMAND" 

80  PR  I  NT  "THE  FILE  IS  NAMED  7  T  ?  ".-PRINT 

90  PRINT "THE  FILE  TO  BE  READ  FROM  DRIVE  B  IN  MUST  BE  SUPERCALC  ’ CONTENT ’  FILE": PR I NT 
100  I NPUT "ENTER  NAME  OF  SC  CONTENT  FILE":F$ 

110  F'S="B:  "+F$  +  "  .  PRN"  :  OPEN"  I  "  ,  1 ,  P* 

120  0PEN"0" , 3, "B: T. XQT" 

130  A$="" 

140  IF  EOF ( 1 )  THEN  400 
150  PRINT 

160  LINE  INPUT  #1,W$ 

170  PO=INSTR ( W$, "=" ) 

180  IF  P0=0  THEN  390 
190  PO=INSTR(W$, "  " )-l 
200  P1=INSTR <W*, "=" ) +2 
210  P3=LEN(W$) 

220  S*=RIGHT* (W$, P3-P1+1 ) 

230  M*="="+LEFT* (W*,PO) 

240  IF  VAL  (  LEFT  %  ( S*  ,  1 )  )  =0  AND  LEFT  $  (  S$  ,1)0  "0"  AND  LEFT  *  ( S* ,  1)0".  "  THEN  260  ELSE  250 
250  IF  LEFT* (St, 1 ) =CHR* (34)  THEN  260  ELSE  280 


260  N*=S* 

270  GOTO  340 

280  REM - ROUTINE  TO  SELECT  VALUE  FOR  NEW  SC  FILE 

290  Z=VAL(S4> 

300  REM  - THIS  IS  ARITHMETIC  STATEMENT  TO  CHANGE  FOR  DIFFERENT  OPERATIONS 

310  REM  —THIS  IS  SELECTION  CRITERION  STATEMENT 


320  IF  <Z  <  1)  THEN  N$=CHR* ( 34 ) + ELSE  N*=STR* <  ( I NT (  <  ( Z ) + . 05 ) *  1 0 )  ) / 1 O ) 

330  REM - - - 

340  PRINT  W$ 

350  PRINT  M*;"  " ; N4 

360  IF  A*=RIGHT* <M*, 1)  THEN  370  ELSE  PRINT  #3,M* 

370  PRINT  #3,N$ 

380  A$=R I GHT $ ( M* ,  1  ) 

390  GOTO  140 
400  PRINT  #3,"=A1" 

410  PRINT : PR I NT" FILE  BlT.XOT  IS  READY" 

420  CLOSE  l: CLOSE  2: CLOSE  3:  END 
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II-C.  Templates  and  Input  Matrices  for  the  Creation  of  GOL  Equations  on  the 
Micro  Computer. 


The  following  pages  contain  ’template'  equations  and  input  matrices  that  can 
be  used  to  create  all  of  the  equations  groups  for  a  standard  model  (USGOL),  a 
reduced  form  country/region  model  (RWGOL) ,  and  the  world  market  clearing  mechani 
(WDGOL) .  These  inputs  must  be  used  with  the  programs  documented  above  to  create 
GOL  statements  and  equations.  In  some  cases,  the  full  GOL  set  of  statements 
is  given. 

The  following  listing  (GOLSUM)  shows  the  equation  groups,  the  input  files 
needed  for  the  equation  group,  the  program  needed  to  create  the  equations/statem 
for  the  equation  group,  and  the  output  files  created  from  the  input  files.  The 
pages  following  this  summary  contain  listings  of  the  input  files  for  each  equati 
group. 

Examples  of  the  use  of  the  input  files  to  create  the  output  files  for  EQWRITE  an* 
EQDUPLIC  are  contained  in  the  documentation  for  those  programs  (previously  listei 
Files  requiring  WORDSTAR  (trademark)  are  final  output  files  which  must  be  created 
by  a  word  processing  program. 

The  programs  require  an  input  ****.TXT  file  and  an  input  matrix  file  (created 
in  SUPERCALC)  labelled  ****.  PRN.  The  SUPERCALC  creation  files  (marked  by 
****.  CAL)  are  also  listed  since  they  most  likely  will  be  used  to  change  the 
****.  prn  files.  In  some  cases,  the  ****.  CAL  files  contain  formulas  to  impose, 
for  example,  symetry  conditions  on  the  elasticities  in  the  **.  PRN  files. 

The  input  template  files  can  be  modified  to  different  equations  structures  via  a 
word  processing  program.  The  input  matrix  files  can  be  modified  to  different 
equation  structures  and  elasticity  values  via  SUPERCALC  editing.  The  input  file 
listings  below  serve  as  a  guide  to  correct  syntax  required  by  files  input  to  the 
EQWRITE  and  EQDUPLIC  programs  under  a  wide  variety  of  equation  forms. 

80LSUM  SUMMARY  OF  GOL  TROLL  STATEMENT  CREATION  PROGRAMS 

—PROGRAM  TO  BE  USED - 


EQUATION  TYPE 

INPUT  DATA  FILE 

EQWRITE 

EQDUPLIC 

WORDSTAR 

OUTPUT  FILE 

STANDARD  COUNTRY 
MODEL  (USGOL) 

DOMESTIC  MARGIN 

USMD.TXT 

1 

USMDR. TXT 

USMD.CAL 

USMD.PRN 

1 

USMDC. TXT 

TRADE  MARGIN 

USMT.TXT 

1 

USMTR. TXT 

USMT.CAL 

USMT.PRN 

1 

USMTC. TXT 

SUPPLY  PRICE 

USPS. TXT 

1 

USRSR . TXT 

USPS.CAL 

USPS. PRN 

1 

CROP  AREA 

USTTRL. TXT 

1 

USTTRL. TXT 

USARTT. TXT 

1 

USARTT .TXT 

USAR. TXT 

1 

USARR.TXT 

USAR. CAL 

USAR. PRN 

1 

USARC. TXT 
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EQUATION  TYPE 

- PROGRAM  TO  BE 

USED - 

INPUT  DATA  FILE 

EQWRITE  EQDUPLI C 

WORDSTAR 

OUTPUT  FILE 

CROP  YIELD 

USYD. TXT 

1 

USYDR. TXT 

USYD. CAL 

USYD. PRN 

1 

USYDC. TXT 

CROP  SUPPLY 

USQS. TXT 

USQS. CAL 

1 

USQSR.TXT 

USQS. PRN 

1 

OILSEED  PRODUCTS 

USOILS. TXT 

1 

USOILS. TXT 

FEED  COSTS 

USFC.TXT 

USFC.CAL 

1 

USFCR.TXT 

USFC.PRN 

USFCPR.TXT 

1 

1 

USFCPR. TXT 

LIVESTOCK  PRODS. 

USLA.TXT 

i 

USLAR. TXT 

USLA.CAL 

USLA.PRN 

1 

USLAC.TXT 

USLS.TXT 

1 

USLSR.TXT 

USLS.CAL 

USLS.PRN 

1 

USLSC. TXT 

USLN. TXT 

1 

USLNR. TXT 

USLN.CAL 

USLN. PRN 

1 

USLNC.TXT 

USQL.TXT 

1 

USQLR.TXT 

USQL.CAL 

USQL.PRN 

1 

USQLC.TXT 

USQO. TXT 

1 

USQOR.TXT 

USQO. CAL 

USQO. PRN 

1 

USQOC. TXT 

USLNUM.TXT 

1 

USLNUM.TXT 

DAIRY  PRODUCTS 

USDPDM.TXT 

1 

USDPDM. TXT 

USDP.TXT 

1 

USDPR. TXT 

USDP.CAL 

USDP.PRN 

1 

USDPC.TXT 

FEED  DEMAND 

USQFPI.TXT 

1 

USQFPI . TXT 

USQF.TXT 

I 

USQFR.TXT 

USQF.CAL 

USQF.PRN 

1 

USQFC. TXT 

INDUSTRIAL  DEM. 

USQIEQ.TXT 

1 

USQIEQ.TXT 

FQOD+N. FEED  DEM. 

USQD. TXT 

1 

USQDR. TXT 

USQD.CAL 

USQD. PRN 

1 

USODC. TXT 

STOCK  DEMAND 

USSK.TXT 

1 

USSKR.TXT 

USSK.CAL 

USSK.PRN 

USSKCF.TXT 

1 

1 

USSKCF.TXT 

NET  TRADE 

USQT.TXT 

1 

USQTR. TXT 

USQT.CAL 

USQT.PRN 

1 

TOTAL  SUPPLY 

USTS.TXT 

USTS. CAL 

1 

USTSR.TXT 

USTS.PRN 

1 

TOTAL  DEMAND 

USTD.TXT 

1 

USTDR. TXT 

USTD.CAL 

USTD.PRN 

1 

PRICE  RATIO 

USPR. TXT 

1 

USPRR . TXT 

USPR.CAL 

USPR. PRN 

1 
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—PROGRAM  TO  BE  USED- 

EQUATION  TYPE  INPUT  DATA  PILE  EQWRITE  EQDUPLIC  WORDSTAR  OUTPUT  FILE 


PRICE  ESTIMATE 

USPE.TXT 

1 

USPER. TXT 

USPE.CAL 

USPE.PRN 

1 

PRICE  CONDITION 

USPC.TXT 

USPC.CAL 

1 

USPCR. TXT 

USPC.PRN 

1 

DEMAND  PRICE 

USPD.TXT 

1 

USPDR. TXT 

USPD.CAL 

USPD.PRN 

1 

STANDARD  REGION 
MODEL  <  RUGOL ) 

SUPPLY 

RWQS.TXT 

1 

RWQSR. TXT 

RWQS.CAL 

RWQS.PRN 

1 

RWQSC. TXT 

DEMAND 

RWQD.TXT 

1 

RWQDR. TXT 

RUQD.CAL 

RWQD. PRN 

1 

RWQDC.TXT 

NET  TRADE 

RWQT.TXT 

1 

RWQTR.TXT 

RWQT.CAL 

RWQT.PRN 

I 

PRICE  RATIO 

RWPR. TXT 
RWPR.CAL 

1 

RWPRR. TXT 

RWPRc PRN 

1 

PRICE  ESTIMATE 

RWPE. TXT 
RWPEcCAL 

1 

RWPER. TXT 

RWPEo  PRN 

1 

INTERNAL  PRICE 

RWPI.TXT 

RWPI.CAL 

1 

RWPIR. TXT 

RWPI.PRN 

1 

WORLD  MARKET 
CLEARING 

MECHANISM  (WDGOL) 

WORLD 

*WDT. TXT 

WDTR. TXT 

TRADE 

WD. CAL 
•WDT.PRN 

ABS.  VAL. 

*WDA. TXT 

WDAR. TXT 

WORLD 

WD. CAL 

TRADE 

♦WDA.PRN 

PRICE  RATIO 

WDPR.TXT 

1 

WDPRR. TXT 

WDPR.CAL 

WDPR.PRN 

1 

PRICE  ESTIMATE 

WDPE.TXT 

WDPE.CAL 

1 

WDPER.TXT 

WDPE.PRN 

1 

WORLD  TRADE  PRICE 

:  WDPT.TXT 

1 

WDPTR. TXT 

WDPT.CAL 

WDPT.PRN 

1 

*  REQUIRES  PROGRAM  ’ CTYLINK'  TO  LINK  COUNTRY  DATA 
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II-C.l 


Templates  and  Input  Matrices  for  the  Creation  of  GOL  Equations  for 
a  Country  Model 


II~C.l.a.  Domestic  Margin 


DOMESTIC  MARGIN 

USMD.TXT 

USMD.TXT 

USMD.CAL 

USMD** 

USMD. PRN 

♦<USPNG’ X/USPD**’ N> ♦♦USMD**##’  C 

*  (USPNG’ X (-1) /USPD** ’ N (-1 ) ) ♦♦USMD**## 
♦USPD** ’ N 

!  A  If 

B  1  1 

C  I 

1 

USMD. PRN 

PC 

PL 

USMD. PRN 

PC 

PL 

2! 

3!  BP 

.37 

0 

BF 

.37 

0 

4 

PK 

.27 

0 

PK 

.27 

0 

5!  ML 

0 

0 

ML 

0 

0 

6 

DM 

0 

0 

DM 

0 

0 

7 

PM 

0 

0 

PM 

0 

0 

e 

PE 

0 

0 

PE 

0 

0 

9 

WH 

0 

0 

WH 

0 

0 

10 

CN 

1 

0 

CN 

1 

0 

u :  cg 

1 

0 

CG 

1 

0 

12 

R I 

0 

0 

RI 

0 

0 

13 

SB 

0 

0 

SB 

0 

0 

14 

□S 

0 

0 

OS 

0 

0 

15 

SM 

1 

0 

SM 

1 

0 

16 

SO 

.02 

0 

SO 

.02 

0 

17 

OM 

1 

.4 

OM 

1 

.  4 

18 

00 

0 

0 

00 

0 

0 

19 

DB 

0 

0 

DB 

0 

0 

20 

DC 

0 

0 

DC 

0 

0 

21 

DO 

0 

0 

DO 

0 

0 

II-C.l. b.  Trade  Margin 

TRADE  MARGIN  USMT.TXT 

USMT.CAL 
USMT.PRN 

1  A  1  1  B  II  C 

1 

USMT. TXT 

USMT** 

* (USPNG’ X/USPD**’ N) **USMT*S##’  C 
* (USPNG' X (-1 ) /USPD**’ N(-l ) ) **USMT»S##’C 
♦USPD**' N 

1 1  USMT. 

o  i 

PRN 

PC 

PL 

USMT.PRN 

PC 

PL 

31 

BF 

.72 

09 

BF 

.72 

.09 

41 

PK 

.3 

0 

PK 

.3 

0 

31 

ML 

0 

0 

ML 

0 

0 

61 

PM 

.32 

0 

PM 

.32 

0 

71 

PE 

0 

0 

PE 

0 

0 

81 

WH 

0 

0 

WH 

0 

0 

9! 

CN 

1 

0 

CN 

1 

0 

101 

CG 

1 

0 

CG 

1 

0 

11  1 

RI 

1 

0 

RI 

1 

0 

121 

SB 

0 

0 

SB 

0 

0 

13! 

OS 

0 

0 

OS 

0 

0 

14! 

SM 

1 

0 

SM 

1 

0 

15! 

SO 

1 

0 

SO 

1 

0 

16! 

OM 

1 

0 

OM 

1 

0 

17! 

00 

0 

0 

00 

0 

0 

181 

DB 

0 

0 

DB 

0 

0 

19! 

DC 

0 

0 

DC 

0 

0 

20! 

DO 

0 

0 

DO 

0 

0 
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II-C.l.c.  Supply  Price 


SUPPLY  PRICE 


USPS.TXT 
USPS. CAL 
USPS. PRN 


USPS. TXT 
USPS** 

' DEF  == 

ABSV ’ F  <  USPD** ’ N 
-USTC**’ POL 
-USMD** ' N 
-USTP**’ POL 
) 


i : 
2 : 

USPS. PRN 

uspd** 

-ustc** 

-usmd** 

—ustp** 

) 

3! 

BF 

1 

0 

1 

0 

1 

4 : 

PK 

1 

0 

1 

0 

1 

5  ! 

ML 

1 

0 

1 

0 

1 

6 : 

DM 

1 

0 

1 

0 

1 

7  ! 

PM 

1 

0 

1 

0 

1 

8  ! 

PE 

1 

0 

1 

0 

1 

9  ! 

WH 

1 

0 

1 

0 

1 

10  : 

CN 

1 

0 

1 

0 

1 

1  1  ! 

CG 

1 

0 

1 

0 

1 

12! 

R I 

1 

0 

1 

0 

1 

13! 

SB 

1 

0 

1 

0 

1 

14  ! 

OS 

1 

0 

1 

0 

1 

15  ! 

SM 

1 

0 

1 

0 

1 

16  ! 

SO 

1 

0 

1 

0 

1 

17  ! 

OM 

1 

0 

1 

0 

1 

IB  ! 

00 

1 

0 

1 

0 

1 

19  ! 

DB 

1 

0 

1 

0 

1 

20  ! 

DC 

1 

0 

1 

0 

1 

21  ! 

DO 

1 

0 

1 

0 

1 

USPS. PRN 


uspd**  — ustc**  — usmd**  — ustp** 


) 


BF  1 

PK  1 

ML  1 

DM  1 

PM  1 

PE  1 

WH  1 

CN  1 

CG  1 

R I  1 

SB  1 

OS  1 

SM  1 

SO  1 

OM  1 

00  1 

DB  1 

DC  1 

DO  1 


0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


0 

0 

0 

0 

0 

0 

o 

0 

0 

0 

0 

o 

0 

0 

0 

o 

0 

0 

0 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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II-C.l.d .  Crop  Area 


CROP  AREA  USTTRL.TXT 

USARTT.TXT 
USAR.TXT 
USAR. CAL 
USAR. PRN 


USTTRL.TXT 
BEGINNING  OF  FILE 


USTTRL:  USTTRL’ DEF  ==  ( 
USPSWH7  DEF*USYDWH’  N*USARWH’  N 
+USPSCN7  DEF*USYDCN’ N*USARCN ’ N 
+USPSCG’ DEF*USYDCG’ N*USARCG7 N 
+USPSR I ’ DEF  *USYDR I 7 N*USARRI ’ N 
+USPSSB7 DEF*USYDSB’ N*USARSB7 N 
+USPSOS7  DEF*USYD0S7  N*USAROS ’  N 
*100) / (USICP’ X* ( 

USARWH 7 N 
+USARCN7 N 
+USARCG ’ N 
+USARR I  ’  N 
+USARSB ’ N 
+USARQS’ N 
>), 


DO  USTTRL  =  < 
USPSWH*USYDWH*USARWH 
+USPSCN*USYDCN*USARCN 
+USPSCG*USYDCG*USARCG 
-t-USPSR  I  *USYDR  I  *USARR  I 
+USPSSB*USYDSB*USARSB 
+USFSOS*USYDOS*USAROS 
*100) / (USICP*  < 

USARWH 
+USARCN 
+USARCG 
+USARRI 
+USARSB 
+USAROS 
>  )  5 


END  OF  FILE 


USARTT. TXT 
BEGINNING  OF  FILE 


USARTT:  USARTT' N-USARTTI ’ C*USTTRL’ DEF (-1 ) **USARTTRL7 C 
* < 1+USARTTGR7 C) **TIME7 X, 


USARTTRL  0.12, 
USARTTTR  0.00341, 


DOCORE  INTERCPT=USARTT / (USTTRL (-1 ) **USARTTRL ’ C 
* ( 1 +USARTTGR 7  C ) **T I ME 7 X) ; 

DO  USARTTI ' C=MEAN ( INTERCPT) ; 


END  OF  FILE 
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USAR.TXT 

USAR$$ 

# (USPS##’ DEF (-1 ) *USYD##'N  <-l > /USICP' X  (-1  »**LISAR**##’ 
*USARTT ' N 


U 


r 

ns 

a 


L 


—  m 

0 

•H 

K) 

o 

Ki 

0  tr 

O 

0 

cn 

0 

cn 

CN 

0 

o 

at 

<x 

• 

> 

X 

-0 

0 

o 

-B 

N 

o 

— J  -•* 

0 

M 

CN 

IN 

o 

*-« 

0 

(_4 

<r 

—  01 

—  L 

o 

CN 

M 

CN 

Ki 

0 

C 

0 

m 

0 

0 

K» 

in 

K) 

> 

■B 

in 

0 

m 

iii 

•B 

-B 

JD 

<r 

CD 

0 

1-1 

0 

0 

0 

0 

cn 

CN 

•*-s 

r-i 

O 

4-» 

0 

S- 

a 

St 


I 

0  >- 
L. 
dJ 

tu 

-  e 

-  E 
> 
01 

u.  r 


E 

0 

0 

2 

0 

a. 


0 

o 


cn 

0 


0 


0 


Q 


0 

0 


<X 

t- 

0 


Q 

0 


0 

U 


o  o  o  o  o  o 
o  o  o  o  o  o 


-  -  M 

c  o  o  o  o  — * 

\  \  \  l  l 


•S'  ~  CD  Kt 

o  o  o  o  o  o 

i  i  i*  i  r 


««-ooo 
o  o  o  cn  o  o 


i  i  i 


K'  —  in 

o  o  ^ 

r  r 


m  — 
o  o  c 

r  r  r 


o 

o 


w 

O 


C' 

o 


u 


iZi 


<x 


0 

0 

►—I 

U 


0 

<X 


0 


<r 

0 

0 

cr 

0 

o 

0 

u 


I 

3 


<X 

0 

0 

<X 

0 

0 


•B  0  CN  -  K'  O 
O  O  O  o  o  o 


I  I  I  I  I 


0  o  n  —  *»■  n  o 

O  O  —<  O  G  o 

I  I  I  I  I 


I  Z  0  *->  a  0  E 

3  U  U  0  0  O  3 

to 


TJ 

4J 

3 


•~(Nf-win-B000o-<N 


0  -  -  -  -  CM 

O  O  O  O  O  O  — ' 

I  I  I  I  I 


ill  <t  -<  n  (D  f't 

0  o  o  o  c  o  o 


I  I  I  I  I 


H-  -  -  «  OD  O  O 

0  O  O  O  CN  o  o 


I  I  I 


0  n  0  <3-  cn  — 

L)  o  c  —  c  c  o 


II  III 


Z  <1  O'  fl  «  «  K) 

U  OGO^OO 
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x  in  <i  n  -  <3-  n 
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r  r  r  r  r 
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<r  3  u  u  0  0  o 

u 

0 

a 

0 

0 
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CROP  YIELD  USYD.TXT 

USYD. CAL 
USYD.PRN 


II-C.l.e.  Crop  Yield 


USYD. TXT 
USYD** 

*  <USPS**’ DEF/USPIN’ X ) *SUSYD*SS*’  C 
♦USAR**’  N**USYD**##’  C 
*< 1+USYD**##’ C> **TIME’ X 
♦USWIN’ X 


:  a  : :  b  i  s 

II  USYD.PRN 
2! 

31  WH  . 007 

4!  CN  .114 

51  CG  .133 

61  RI  .053 

7 !  SB  .  007 

8!  OS  .01 


C  M  0 


AR 

GR 

USYD. PRN 

AR 

GR 

344 

.01964 

WH 

.007 

-.344 

.01964 

145 

.02461 

CN 

.  114 

-.  145 

. 02461 

0S9 

.01716 

CG 

.  133 

-.089 

. 01716 

■.05 

. 00732 

RI 

.053 

-.05 

. 00732 

001 

. 00977 

SB 

.007 

-.001 

. 00977 

001 

.010999 

OS 

.01 

-.001 

.010999 

CROP  SUPPLY  USPS.TXT 

USPS.CAL 
USPS.PRN 


II-C.l.f.  Crop  Supply 


A  II  B  II  C  II  D  !  !  E  II  F 


1  1 

USPS.PRN 

uspd** 

-ustc** 

-usmd** 

-ustp** 

) 

21 

31 

BF 

1 

0 

1 

0 

1 

41 

PK 

1 

0 

1 

0 

1 

5! 

ML 

1 

0 

1 

0 

1 

61 

DM 

1 

0 

1 

0 

1 

7! 

PM 

1 

0 

1 

0 

1 

81 

PE 

1 

0 

1 

0 

1 

9  1 

WH 

1 

0 

1 

0 

1 

101 

CN 

1 

0 

1 

0 

1 

11  1 

CG 

1 

0 

1 

0 

1 

121 

RI 

1 

0 

1 

0 

1 

131 

SB 

1 

0 

1 

0 

1 

14! 

OS 

1 

0 

1 

0 

1 

15! 

SM 

1 

0 

1 

0 

1 

161 

SO 

1 

0 

1 

0 

1 

171 

OM 

1 

0 

1 

0 

1 

181 

00 

1 

0 

1 

0 

1 

191 

DB 

1 

0 

1 

0 

1 

201 

DC 

1 

0 

1 

0 

1 

21  I 

DO 

1 

0 

1 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


USPS.PRN  uspd**  -usmd**  —ustp** 


BF 

PK 

ML 

DM 

PM 

PE 

WH 

CN 

CG 

RI 

SB 

OS 

SM 

SO 

OM 

00 

DB 

DC 

DO 


USPS.TXT 
USPS*S 
’DEF  -= 

ABSV ’ F ( USPD** ’ N 
-USTC**’ POL 
-USMD**’N 
-USTP**’ POL 
) 


133 


II-C.l.g 


Oilseed  Products 


OILSEED  PRODUCTS  USOILS.TXT 


USOJLS.TXT 
BEGINNING  OF  FILE 


ussbpm:  ussbpm’ def 

(USOSSBSM' P+USPSSM’ DEF+USQSSBSO ’ P+USPSSO’  DEF) /USPDSB’  N, 

usospm:  usospm’ def  == 

(USQSOSOM’ P^USPSOM’ DEF+USQSOSOO’ P^USPSOO’ DEF)  /USPDOS’  N, 


DO  USSBPM= (USOSSBSM’ P*USPSSM+USOSSBSO’P*USPSSO) /USPDSB; 
DO  USOSPM= (USQSOSOM’  P+USPSOM+USQSOSOO ’ P*USPSOO) /USPDOS; 


USQCSB:  USQCSB’ N  =  USQCSBI’C 

♦USSBPM' DEF**USQCSBPN’ C* ( 1+USQCSBGR’  C) ♦♦TIME’ X, 
USQCOS:  USOCOS ’ N  =  USQCOSI’C 

♦USOSPM' DEF**USOCOSPM ' C* ( 1 +USQCOSGR ’ C) ♦♦TIME’ X, 


USOSSBSM 

USQSSBSO 

USQSOSOM 

USQSOSOO 

USQCSBPM 

USOCSBTR 

USQCOSPM 

USQCOSTR 


0.8  , 

0.  18, 
0.5  , 

0.  18, 
0.01, 
0.0498, 
0.00, 

0. 0346, 


DOCORE  I NTERCPT  =  USQCSB 

/ ( USSBPM**USQCSBPM ' C* < 1 +USQCSBGR ’ C ) **T I ME ’ X) ; 
DO  USQCSB I ' C=MEAN ( I NTERCPT ) ; 

DOCORE  I NTERCPT  =  USOCOS 

/ ( USOSPM**USQCOSPM ’ C* < 1 +USQCOSGR ’ C) ♦♦TIME’ X) ; 
DO  USQCOSI ’ C=MEAN < INTERCPT) ; 


USOSSM:  USQSSM'DEF  ==  USOSSBSM' P^USQCSB' n, 
USQSSO:  USQSSO ’ DEF  ==  USQSSBSO’ P*USOCSB ’ N, 
USQSOM:  USQSOM’DEF  ==  USQSOSOM’ P^USQCOS’ N, 
USOSOO:  USQSOO ’ DEF  ==  USQSOSOO’ P+USQCOS’ N, 


DO  USQSSM  =  USQSSBSM’ P*USQCSB; 
DO  USQSSO  =  USQSSBSO' P*USQCSB; 
DO  USQSOM  =  USQSOSOM’ P*USQCOS; 
DO  USQSOO  =  USQSOSOO’ P*USQCOS; 


END  OF  FILE 
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II-C.l.h.  Feed  Costs 


FEED  COSTS 


USFC. TXT 
USFC. CAL 
USFC. PRN 
USFCFR. TXT 


USFC .TXT 
USFC** 

’  DEF  == 

USFC**WH’ P*USPDWH’ N 
+USFC**CN?  P*USPDCN’ N 
+USFC**CG7  P*USPDCG ’  N 
+USFC**SM’ P*USPDSM’ N 
+USFC**OM’ P*USPDQM"  N 


1 


USFC. PRN 


4 


BF 


P  K 


6 

7 

e 


ML 

DM 

PM 

PE 


B  !  i  C  :  :  D  i  !  E  !  !  F  ! 
wheat  corn  o.  c.  g.  soymeal  o.  meals 


1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 


USFC. PRN  wheat 


corn  o.  c.  g. 


soymeal  o.  meals 


BF  1  1 
PK  1  1 
ML  1  1 
DM  1  1 
PM  1  1 
PE  1  1 


1 

1 

1 

1 

1 

1 


USFCPR.TXT 
BEGINNING  OF  FILE 


USFCBFWH 

USFCPKWH 

USFCMLWH 

USFCDMWH 

USFCPMWH 

USFCPEWH 

USFCBFCN 

USFCPKCN 

USFCMLCN 

USFCDMCN 

USFCPMCN 

USFCPECN 

USFCBFCG 

USFCPKCG 

USFCMLCG 

USFCDMCG 

USFCPMCG 

USFCPECG 

USFCBFSM 

USFCPKSM 

USFCMLSM 

USFCDMSM 

USFCPMSM 

USFCPESM 

USFCBFOM 

USFCPKOM 

USFCMLOM 

USFCDMOM 

USFCPMOM 

USFCPEOM 


0.  01 
0.  01 
0.  01 
0.01 
0.01 
0.01 
0.60 
0.87 
0.  60 
O.  56 
O.  60 
0.  49 
0.  24 
0.  09 
0.  24 
0.35 
0.  07 
0.  25 
0.  15 
0.  03 
0.  15 
0.  08 
0.  32 
0.  25 
0.001 
0.  001 
0.001 
0.  001 
0.001 
0.  001 


END  OF  FILE 
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LIVESTOCK  PRODS. 


USLA.TXT 
USL A . CAL 
USLA. PRN 
USLS.TXT 
USLS. CAL 
USLS. PRN 
USLN. TXT 
USLN. CAL 
USLN. PRN 
USQL.TXT 
USQL. CAL 
USQL. PRN 
USQO.TXT 
USQO. CAL 
USOO. PRN 
USLNUM.TXT 


II-C.l.i.  Livestock  Products 


USLA.TXT 

USLA** 

* ( USPS** ’ DEF/USFC** " DEF ) *»USLA**##’ C 
*  <  USPS** '  DEF  (  - 1  >  /USFC** ’  DEF  ( —  1  )>**USLA$i##  ’  C 
♦USLN**’ N 


4  ! 


USLA. PRN 

PC 

PL 

USLA. PRN 

PC 

PL 

BF 

-.096 

.  067 

BF 

-.  096 

.  067 

P  K 

-.213 

.  676 

PK 

-.213 

.  676 

ML 

-.189 

.  081 

ML 

-.  189 

.  081 

USLS.TXT 

USLS** 

♦  <  USPS** ' DEF/USFC** ' DEF ) **USLS**## ’ C 

♦  ( USF’S** '  DEF  (-1  )  /USFCS*  '  DEF  (-1  )  )  ♦♦USLS**##’ C 
♦USLN**’ N 


1  i 

O  l 

USLS. PRN 

PC 

PL 

USLS. PRN 

PC 

PL 

3! 

BF 

.  142 

.  001 

BF 

.  142 

.  001 

4  : 

PK 

-.298 

.  324 

PK 

-.298 

.  324 

5  S 

ML 

-.  234 

.  0387 

ML 

-.234 

.  0387 

USLN . TXT 
USLN** 

♦ (USPS**' DEF/USFC**’ DEF) ♦♦USLN**##’ C 
♦  (USPS**’ DEF (-1 ) /USFC**’ DEF (-1 )  ) ♦♦USLN**##’  C 
♦USLN**' N (-1 ) ♦♦USLN**##’  C 


i : 

USLN. PRN 

PC 

PL 

LG 

USLN. PRN 

PC 

PL 

LG 

3  ! 

DM 

-.036 

.013 

.  964 

DM 

-.036 

.013 

.  964 

4 : 

PE 

.  0001 

.  0001 

.  0001 

PE 

.  000 1 

.  0001 

.  000 1 
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USQL.TXT 

USDS** 

* ( USPS** ’ DEF /USFC4* ’ DEF ) **USQS**## ’ C 
* (USPS**’  DEF (-1 ) /USFC**’ DEF  <-l )  ) **USQS*»##’ C 
*  < 1+USQS**##’ C) **TIME’  X 
*USLS*4 ’ N 


!  A  1  ! 

B  1  : 

C  :  ! 

D  ! 

1 1 
21 

USQL . PRN 

PC 

PL 

GR 

31 

BF 

.118 

.  0001 

.  0001 

4! 

PK 

.015 

.  000 1 

.  0001 

5! 

ML 

-.021 

.  007 

.00756 

USQL. PRN 

PC 

PL 

GR 

BF 

.  118 

.  000 1 

.  000 1 

PK 

.015 

.0001 

.0001 

ML 

-.  021 

.  007 

.00756 

USQO.TXT 

USQS** 

* (USPS**’ DEF/USFC**’ DEF) **USQS**##’ C 

*  <USF'S**’  DEF  (-1  )  /USFC**’  DEF  (-1  )  )  **USQS**##’  C 

*  ( 1+USQS**##’ C) •**TIME’ X 
*USLN**’ N 

!  A  i  ! 

11  USQO.PRN 

B  !  !  C  !  ! 

PC  PL 

D  : 
GR 

USQO.PRN 

PC 

PL 

GR 

31  DM 

4 1  PM 

51  PE 

.015  .0001 

.018  .0001 

-.0133  -.005 

. 00005 
. 00061 
. 00529 

DM 

PM 

PE 

.015 

.018 

-.0133 

.  0001 
.  000 1 
-.005 

. 00005 
. 00061 
. 00529 

USLNUM.TXT 
BEGINNING  OF  FILE 


USLNBF :  USLNBF  ’  N 
USLNF'K :  USLNPK  ’  N 

uslnml:  uslnml ’n 

END  OF  FILE 


USLNBF’ N(-l ) +USLABF (-1 ) — USLSBF ’ N  < - 1 ) , 
USLNPK ’ N ( - 1 ) +USLAPK ( - 1 ) -USLSPK ’ N ( -1 > , 
USLNML ’ N  < - 1 ) +USLAML ( - 1) -USLSML ’ N ( —  1 ) , 
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II-C.l.j.  Dairy  Products 


DAIRY  PRODUCTS  USDPDM.TXT 
USDP.TXT 
USDP. CAL 
USDP . PRN 


USDPDM.TXT 
BEGINNING  OF  FILE 


USQMDM:  USQMDM' DEF  ==  USQSDM' N-USQDDM’ N  , 


DO  USQMDM  =  USQSDM  -  USODDM  ; 
END  OF  FILE 


TYPE  B: USDP.TXT 

USDP.TXT 

USDS** 

*  (LISPS##5  DEF/USF’SDM'  DEF)  **USQS$*##"  C 
♦USQMDM ' DEF 


!  A 

■  : 

B  !  ! 

C  !  ! 

D 

:  !  e 

!  !  F  !  ! 

G 

!  !  H  •  :  : 

I  : 

1 

Dai  ry 

Product 

Suppl y 

El ast i c i t i es 

(with 

symmetry) 

9. 

USDF. 

PRN 

DB 

DC 

DO 

PDDM 

Dai r ypBO 

Dai r psh 

4 

5 

DB 

.  32 

-.10 

04 

-.26 

1790. 00 

47.78 

6 

DC 

12 

.37 

05 

-.20 

1434.67 

38.29 

7 

DO 

.  14 

-.14 

. 

20 

-.20 

522. 00 

13.93 

8 

9 

WTD 

SUM 

.  12 

.  07 

03 

3746.67 

1 00 . 00 

USDP . PRN 

DB 

DC 

DO 

DB 

.  32 

-.10 

.  04 

DC 

-.  12 

.  37 

-.05 

DO 

.  14 

-.  14 

.20 
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FEED  DEMAND 


II-C.l.k.  Feed  Demand 


USQFPI.TXT 
USQF.TXT 
USQF. CAL 
USQF. PRN 


USQFPI.TXT 
BEGINNING  OF  FILE 


USLPI:  USLP I ’ DEF  ==  USLPWTBF ’ P*USPSBF ’ DEF 
+USLPWTPK ’  P*USPSPK  ’  DEF+USLPWTML  ’  P*USPSML  ’  DEF 
-t-USLPWTDM’  P*USPSDM’  DEF+USLPWTPM’  P*USPSPM’  DEF 
+USLPWTPE’  P*USPSPE’  DEF, 

USGCAU:  USGCAU’ DEF  ==  USGCAUBF’ P^USLNBF’ N 
+USGCAUPK  ’  P*USLNPK ’ N-t-USGCAUML ’ P*USLNML ’ N 
+USGCAUDM’ P*USLNDM' N+USGCAUPM ' P*USQSPM ’ N 
+USGCAUPE’ P*USLNPE’ N, 

USLPWTBF 

0.  65, 

USLPWTPK 

0.  08, 

USLPWTML 

0.01, 

USLPWTDM 

0.06, 

USLPWTPM 

0.  12, 

USLPWTPE 

0.  08, 

USGCAUBF 

1.02, 

USGCAUPK 

1.28, 

USGCAUML 

0.0  , 

USGCAUDM 

0.  46, 

USGCAUPM 

0.01, 

USGCAUPE 

0.0  , 

DO  USLP I=USLPWTBF '  P*USFSBF-t-USLPWTPK  ’  P*USPSPK’  N 
+USLPWTML’ P*USPSML+USLPWTDM ’ P*USPSDM+USLPWTPM ’ P*USPSPM 
+USLPWTPE’  p*uspspe; 

DO  USGCAU- USGCAUBF’ P*USLNBF+USGCAUPK’ P*USLNPK 
+USGCAUML’ P*USLNML+USGCAUDM’ P*USLNDM+USGCAUPM ’ P*USQSPM 
+USGCAUPE’ P*USLNPE j 
END  OF  FILE 


USQF.TXT 

USQF** 

*  <USPD##’ N/USLPI ' DEF) **USQF**##’  C 
♦USGCAU’ DEF 


:  A  {  ! 

B  !  1 

C  !  ! 

D  !  !  E 

!  !  F 

i  !  G 

!  !  H  !  ! 

I  !  ! 

J  ! 

1  !  Feed  Demand 

2  ! 

El  asti ci ti 

es 

Uni  ted 

States 

3!  USQF. PRN 

4  i 

WH 

CN 

CG 

SM 

OM 

Row  Bum 

Feed  80 

Feedshr 

5!  WH 

-1.00 

.60 

.  16 

21 

.03 

.00 

2.04 

1.41 

6!  CN 

.01 

-.  10 

.06 

02 

.01 

.00 

104.15 

71.86 

7!  CG 

.02 

.33 

-.45 

08 

.04 

.01 

19.22 

13.26 

8 !  SM 

.02 

.  12 

.09 

26 

.05 

.02 

17.  45 

12.04 

9!  OM 

.03 

.50 

.37 

42  -1 

.29 

.  03 

2.  08 

1 . 44 

10! 

11!  Wtd.  sum 

■ 

o 

o 

• 

O 

o 

O 

O 

00 

O 

O 

144. 94 

100.00 

USQF. PRN 

WH 

CN 

CG 

SM 

OM 

WH 

-1.00 

.  60 

.  16 

.21 

.03 

CN 

.01 

-.  10 

.  06 

.02 

.01 

CG 

.02 

.33 

-.  45 

.  08 

.04 

SM 

.02 

.  12 

.09 

-.26 

.  05 

OM 

.  03 

.  50 

.37 

.  42 

-1.29 
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II-C.1.1.  Industrial  Demand 


INDUSTRIAL  DEM.  USQIEQ.TXT 

USQIED.TXT 
BEGINNING  OF  FILE 


USOICN:  USOICN’N  =  USQICNI ’ C* (USPDCN’ N/USPNG' X > **USQICNCN’ C 
*  < 1+USQICNGR7  C) *+TIME’  X  , 


USQICNCN  0.0  , 

USD  I CNTR  0.047, 

USD I CN I  0,  USQICNCN  0,  USQICNTR, 


DOCORE  I NTERCPT =USQ I CN/ <  (USPDCN/USPNG) **USQICNCN' C 
* ( 1+USQICNGR’C) **TIME>  ; 

DO  USQICNI ’ C=MEAN < INTERCPT) ; 

END  OF  FILE 


II-C.l.m.  Food  and  Non-Feed  Demand 


FOOD+N . FEED  DEM.  USQD.TXT 
USQD. CAL 
USOD. PRN 


USQD. TXT 
USQD* * 

* (USPDWtF  N/USPNG ’ X ) **USQD*$## 7  C 
* (US  INC’ X/ (USPNG’ X*USPOP' X)  ) **USQD**##’ C 
♦USPOP-’  X 
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Food  ( and  other)  Demend  Elasticities  United  States  (with  symmetry-  applying  demand  theory) 
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STOCK  DEMAND 


Stock  Demand 


USSK. TXT 
USSK. CAL 
USSK. PRN 
USSKCF.TXT 


II-C.l.n. 


USSK . TXT 
USSK*$ 

* (USPD** ’  N/USPNG7 X) ♦♦USSK****’ C 

* (USPR**'PDL  /USPS$* 7 DEF ) **USSK**PR’ C 

* (USDDi* ’ N 

+USQF$* 7 N 

+USQC$*’N 

+USO I ’ N 

+USQS*$’N) 

+USOS$S’ DEF) 


:  a 

1  1 

B  !  ! 

C  !  ! 

D  !  ! 

E  !  ! 

F  !  ! 

G  !  ! 

H  !  ! 

I  ! 

1 !  USSK. 
2  ! 

PRN 

own  pr 

parity 

qd 

q* 

qc 

qi 

qsn 

qsde-f 

3  ! 

BF 

0 

0 

1 

0 

0 

0 

1 

Ci 

4  { 

PK 

-.  15 

0 

1 

0 

0 

0 

1 

0 

5  ! 

ML 

0 

0 

1 

0 

0 

0 

1 

0 

6 : 

PM 

0 

0 

1 

0 

0 

0 

1 

0 

7 : 

PE 

0 

0 

1 

0 

0 

0 

1 

0 

s : 

WH 

-.91 

0 

1 

1 

0 

0 

0 

1 

9  ! 

CN 

-1 . 45 

0 

1 

1 

0 

1 

0 

1 

10  ! 

CG 

-1.35 

0 

1 

1 

0 

0 

0 

1 

1 1 : 

RI 

-.24 

0 

1 

0 

0 

0 

0 

1 

12  ! 

SB 

0 

0 

1 

0 

1 

0 

0 

1 

13! 

OS 

0 

0 

1 

0 

1 

0 

0 

1 

14! 

SM 

-1 

0 

1 

1 

0 

0 

0 

1 

15! 

SO 

0 

0 

1 

0 

0 

0 

0 

1 

16  ! 

OM 

-1 

0 

1 

1 

0 

0 

0 

1 

17  ! 

00 

0 

0 

1 

0 

0 

0 

0 

1 

IB  ! 

DB 

0 

1 

1 

0 

0 

0 

0 

0 

19! 

•  DC 

0 

1 

1 

0 

0 

0 

1 

0 

20  ! 

DO 

0 

1 

1 

0 

0 

0 

1 

0 

USSK. PRN 

own  pr 

par i ty 

qd 

q-f 

qc 

qi 

qsn 

qsde-f 

BF 

0 

0 

1 

0 

0 

0 

1 

0 

PK 

-.  15 

0 

1 

0 

0 

0 

1 

0 

ML 

0 

0 

1 

0 

0 

0 

1 

0 

PM 

0 

0 

1 

0 

0 

0 

1 

0 

PE 

0 

0 

1 

0 

0 

0 

1 

0 

WH 

-.91 

0 

1 

l 

0 

0 

0 

1 

CN 

-1.45 

0 

1 

l 

0 

1 

0 

1 

CG 
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0 
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USSKCF.TXT 
BEGINNING  OF  FILE 


USSKBFI’C 
USSKCNI’C 
USSKSQI ’ C 
USSKPKPK 
USSKSMSM 

0,  USSKPKI’C  0, 
0,  USSKCGI ’ C  0, 
0,  USSKOMI ’ C  0, 
0,  USSKWHWH 
0,  USSKOMOM 

USSKPKPK 

-0.15  , 

USSKWHWH 

-0.91  , 

USSKCNCN 

-1.45  , 

USSKCGCG 

-1.35  , 

USSKRIRI 

-0.24  , 

USSKSMSM 

-1.00  , 

USSKOMQM 

-1.00  , 

USSKDBPR 

1.00  , 

USSKDCPR 

1.00  , 

USSKDOPR 

1.00  , 

END  OF  FILE 

USSKMLI *  C  0,  USSKPMI ’ C  0,  USSKPEI’C  0,  USSKWHI’C 

USSKRII’C  0,  USSKSBI’C  0,  USSKOSI’C  0,  USSKSMI’C 

USSKOOI’C  0,  USSKDBI’C  0,  USSKDCI’C  0,  USSKDOI’C 

0,  USSKCNCN  0,  USSKCGCG  0,  USSKRIRI 

0,  USSKDBPR  0,  USSKDCPR  0,  USSKDOPR  0, 


0, 

0, 

0, 


0, 


NET  TRADE 


USQT.TXT 
USQT. CAL 
USQT.PRN 


II-C.l.o.  Net  Trade 


USQT. TXT 
USQT** 

’  N  - 

uses** 

*N 

'DEF 

-USQC**’N 
— USQI **’ N 
— USQF** ’ N 

-USQD**’ N— (USSK**’ N-USSK**' N (-1 > ) 


A  !  I 


i : 
2! 

USQT.PRN 

3! 

BF 

41 

PK 

5  i 

ML 

6! 

PM 

7! 

PE 

Si 

WH 
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16! 
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C  I 
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D  ! 
qs’ de-f 
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H  i 
qd  ®k 

X 

1 

X 

1 

X 

X 

1 

1 

1 

1 

1 

1 

1 

,  1 
X 
1 
1 
1 


USQT; PRN 


q®  qs’  n  qs’d«-f 


qc  qi 


q-f  qd  sk 
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TOTAL  SUPPLY 


LISTS.  TXT 
USTSS* 
’DEF  == 
USQS** 

'  DEF 
’  N 


II-C.l.p.  Total  Supply 


A  !  !  B  !  !  C  !  I  D 


1 

n 

USTS.PRN 

qs 

’  de-f 

’  n 

3 

BF 

l 

0 

1 

4 

PK 

l 

0 

1 

5 

ML 

l 

0 

1 

6 

PM 

l 

0 

1 

7 

PE 

l 

0 

1 

8 

WH 

l 

1 

0 

9 

CN 

l 

1 

0 

10 

CG 

i 

1 

0 

1  1 

R I 

l 

1 

0 

12 

SB 

l 

1 

0 

13 

OS 

l 

1 

0 

14 

SM 

l 

1 

0 

15 

SO 

l 

1 

0 

16 

OM 

l 

1 

0 

17 

00 

l 

1 

0 

18 

DB 

l 

0 

1 

19 

DC 

l 

0 

1 

20 

DO 

l 

0 

1 

USTS.PRN 

BF 
PK 
ML 
PM 
PE 
WH 
CN 
CG 
R I 
SB 
OS 
SM 
SO 
OM 
00 
DB 
DC 
DO 


qs  ’  def 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


0 
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0 

o 

0 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

o 

0 

o 


’  n 

1 

1 

1 

1 

1 

o 

0 

o 

o 

0 

0 

o 

0 

0 

0 

1 

1 

1 


USTD.TXT 
USTDSS 
’DEF  == 
USQDSS' N 
+USQF** ' N 
+USQC**' N 


TOTAL  DEMAND 


+USQ I ** ’ N 

+  ( USSK'i*  ’  N— USSK$$ ’  N  (-1  )  ) 


II-C.l.q.  Total  Demand 


A  !i  B  li  C 


1  1 

USTD.  F'RN 

qd 

+  qf 

2  1 

3  I 

BF 

1 

0 

4  1 

PK 

1 

0 

5  1 

ML 

1 

0 

6  1 

PM 

1 

0 

7  1 

PE 

1 

0 

8  1 

WH 

1 

1 

9! 

CN 

1 

1 

10  1 

CG 

1 

1 

1  1  1 

R I 

1 

0 

12! 

SB 

1 

0 

131 

OS 

1 

0 

14  I 

SM 

1 

1 

15  1 

SO 

1 

0 

16  1 

OM 

1 

1 

171 

00 

1 

0 

18! 

DB 

1 

0 

19  1 

DC 

1 

0 

20  I 

DO 

1 

0 

D  l  l 

+  qc 

O 

0 

0 

0 

o 

0 

0 

0 

0 

1 

1 

0 

0 

0 

o 

0 

0 

0 


E  I  I 

+  qi 

o 

0 

0 

o 

0 

0 

1 

o 

0 

0 

0 

0 

0 

0 

o 

0 

0 

0 


F  I 
-►dsk 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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USTD. PRN 


qd  -t-q-f 


+qc  +qi  +dsk 


BF  1 

PK  i 

ML  1 

PM  1 

PE  1 

WH  1 

CN  1 

CG  1 

R I  1 

SB  1 

OS  1 

SM  1 

SO  1 

OM  1 

00  1 

DB  1 

DC  1 

DO  1 


0 

0 

0 

0 

0 

1 

1 

1 

0 

0 

0 

1 

0 

1 

0 

o 

0 

0 


0 

c> 

0 

o 

o 

0 

0 

o 

0 

1 

1 

0 

0 

0 

0 

0 

o 

o 


0 

o 

0 

0 

0 

o 

1 

0 

0 

0 

0 

0 

o 

0 

0 

0 

0 

0 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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1 

1 

1 


U5PR.TXT 
USPR44 
’DEF  == 

USCF4 4  ’  P*  ( US0T44 ’  N—  < 


PRICE  RATIO 


IF 

(US0T44’ N 

6E  USEQ44 ' POL ) 

THEN 

USE044 

POL  ELSE 

IF 

( USQT 44  ?  N 

LE  -USM044'P0L) 

THEN 

— USMQ44 ‘ POL  ELSE 

0) ) / ( USTS44 ' 

:  a  I 

DEF+USTD44 "DEF) 

!  B  !  !  C 

d  :  : 

E  : 

i 

USPR. 

PRN 

cp*qt- 

eq 

-mqO/ ( ts+td ) 

-5 

BF 

1 

1 

1 

i 

4 

PK 

1 

1 

1 

i 

5 

ML 

1 

1 

1 

l 

6 

PM 

1 

1 

1 

l 

7 

PE 

1 

1 

1 

l 

8 

WH 

1 

1 

1 

l 

9 

CN 

1 

1 

1 

l 

10 

CG 

1 

1 

1 

l 

1  1 

R I 

1 

1 

1 

l 

12 

SB 

1 

1 

1 

l 

13 

OS 

1 

1 

1 

i 

14 

SM 

1 

1 

1 

l 

15 

SO 

1 

1 

1 

l 

16 

OM 

1 

1 

1 

l 

17 

00 

1 

1 

1 

l 

IS 

DB 

1 

1 

1 

l 

19 

DC 

1 

1 

1 

l 

20 

DO 

1 

1 

1 

i 

Il-C.l.r.  Price  Ratio 


USPR. PRN 


cp*qt- 


eq 


-mqO/ ( ts+td ) 


BF 
PK 
ML 
PM 
PE 
WH 
CN 
CG 
R I 
SB 
OS 
SM 
SO 
OM 
00 
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DC 
DO 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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1 
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1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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II-C.l.s.  Price  Estimate 


uspe.txt  PRICE  ESTIMATE 

USPE*t 
?  DEF  == 

USPDtt 7  N* ( 1- ( 

IF  USF'R$*  ’  DEF  GT  USCL-tS’P  THEN  USCLtt’P  ELSE 
IF  USF'R$$ 7  DEF  LT  -USCLtS’P  THEN  -USCL**’P  ELSE 
USF'R* $  ’  DEF )  ) 


l : 

USPE.PRN 

pd*  1  — 

cl 

-cl 

pr 

j—  i 

3  ! 

BF 

1 

1 

1 

1 

4 : 

PK 

1 

1 

1 

1 

5  ! 

ML 

1 

1 

1 

1 

6\ 

PM 

1 

1 

1 

1 

7  \ 

PE 

1 

1 

1 

1 

B  ! 

WH 

1 

1 

1 

1 

9  ! 

CN 

1 

1 

1 

1 

10! 

CG 

1 

1 

1 

1 

1  1  ! 

RI 

1 

1 

1 

1 

12  ! 

SB 

1 

1 

1 

1 

13! 

OS 

1 

1 

1 

1 

14  ! 

SM 

1 

1 

1 

1 

15! 

SO 

1 

1 

1 

1 

16  ! 

OM 

1 

1 

1 

1 

17  ! 

00 

1 

1 

1 

1 

IB  ! 

DB 

1 

1 

1 

1 

19! 

DC 

1 

1 

1 

1 

20! 

DO 

1 

1 

1 

1 

USPE.PRN  pd*l- 


cl  -cl 


Pr 


BF  1 

PK  1 

ML  1 

PM  1 

PE  1 

WH  1 

CN  1 

CG  1 

RI  1 

SB  1 

OS  1 

SM  1 

SO  1 

OM  1 

00  1 

DB  1 

DC  1 

DO  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

r 

i 
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i 

i 

i 

i 

i 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 


USPC.TXT 
USF'Ct  $ 

’ DEF  == 

1  *  <  (  < USF'E*  $  ’  DEF  LT  ( USPT $$  ’  N+USMT ’  N 
+U5TM$$  ’  F'OL 


PRICE  CONDITION 


+USTC*$ '  POL 

))  AND  (  USF'Eit  ’  DEF  GT  <  USPT**  ’  N-USMT**  ’  N+USMD* *  ’  N 
-USTEit’POL 
+USTC**’ POL 
)  )  )  OR 

(USQT $$ ’ N  GE  USEQi$ ’ POL ) 


OR 

(USQT N  LE  — USMQt$ ’ POL) 
) 


II-C.l.t.  Price  Condition 


USPC.PRN  pe<pt  +tm  +tc  pe>pt  — te  +t.c  or  qt>eq  or  qt  >— mq 


_l 


IX 

6 

I 

A 

*J 

CT 


a 


Hi 

a 


LLiJiiiJizcs-innEDEOffiuo  z  iLijEmizD-umrc 
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u 

LL 

tn 
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-  N  rMfli'Hl  mi  o- 


rj  n  <t  in  -o  md  0-  o 
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(DM 

on 


II-C.l.u.  Demand  price 


OF M AND  .PRICE 


uspd. TXT 
USPD*$ 

•N  = 

IFNuSPC**’ DEF  EQ  1)  THEN  ABSV ' F ( USPE** ’ DEF ) 
ELSE 

IF  <USQT**’N  LT  0)  THEN 
ABSV'  F  <USPT$S>’  N-HJSMT**’  N 
+USTM$*' POL 
■HJSTC**’ POL 
) 

ELSE 

ABSV' F  OJSPT** ' N-USMT**' N+USMDi*’ N 
-USTE**’ POL 
+USTC**’ POL 
) 
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USPD.PRN  pc+1  else  qt<0  pt  +tm  +tc  )  else  pt  —  te  +tc 
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WLI 


II-C.2. 


II-C.2. 

SUPPLY 


Templates  and  Input  Matrices  for  the  Creation  of  GOL  Equations  for  a 
a  Regional  Model 


.  Supply 


RWQS.TXT 
RWQS. CAL 
RWQS . PRN 


RWQS.TXT 
RWQS* 4 

♦ <RWPI**’N/RWPNG’ X) **RWQS**PC’ C 

* ( RWP I  ** ’ N ( - 1 ) /RWPNG ’ X (-1 ) ) **RWQS*SPL ’ C 

* ( 1+RWQS**TR7  C> ♦♦TIME’ X 

♦RWQS** ' N  < - 1 ) ♦♦RWQS**LG’ C 

♦RWQS**SF ’ X 


A  IS  B  II  C  IS  D  II  E 


i  : 

RWQS. PRN 

PC 

PL 

GR 

LG 

jL  1 

3! 

BF 

.01 

0 

0 

.  934 

4 : 

PK 

.  154 

-.  065 

.  048 

0 

5! 

ML 

0 

0 

.009 

0 

6 : 

PM 

0 

0 

.  0745 

0 

7 : 

PE 

0 

.097 

.  034 

0 

8  S 

WH 

.  0085 

0 

0 

.913 

9! 

CN 

0 

.  006 

.04 

0 

10! 

CG 

0 

0 

.022 

0 

1 1  ! 

R I 

0 

0 

.  0304 

0 

12! 

SB 

0 

.  395 

.  0946 

0 

13! 

OS 

0 

.114 

.0516 

0 

14  ! 

SM 

.  048 

.112 

.111 

0 

15  ! 

SO 

.  106 

.  053 

1 22 

0 

16  ! 

OM 

.295 

.  164 

.  0736 

0 

17  ! 

00 

.  027 

.  091 

.  056 

0 

18! 

DB 

.  026 

0 

0 

.  772 

19! 

DC 

.223 

0 

0 

.  808 

20! 

DO 

.111 

0 

0 

.  852 

RWQS. PRN 

PC 

PL 

GR 

LG 

BF 

.01 

0 

0 

.  934 

PK 
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— .  065 
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0 

ML 
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.  009 

0 

PM 
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PE 

0 
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0 
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0 
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0 
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0 
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0 
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1 22 

0 

OM 

.295 
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.0736 

0 

00 

.027 

.  091 

.  056 

0 

DB 

.026 

0 

0 

.772 

DC 

0 

0 

.  808 

DO 

.111 

0 

0 

.  852 
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II-C.2.b„  Demand 


DEMAND 


RWQD.TXT 
RWQD. CAL 
RWQD . PRN 


RWQD . TXT 
RWQD** 

*  <RWPI**’ N/RWPNB’ X) **RWQD*t**’ C 

*  (  RW I  NC  ’  X/  (RWPNG  ’  X*RWPOP’  X)  )  **RWQD**##  ’  C 
♦RWPOP ’ X 


a  i !  b  :  :  c 


i : 

RWQD. PRN 

IN 

2; 

3: 

BF 

17 

.36 

4  ! 

PK 

-.  09 

.  34 

5  ! 

ML 

24 

-.  38 

6! 

PM 

-.56 

.87 

7! 

PE 

-.05 

.22 

8  : 

WH 

-.03 

.78 

9! 

CN 

-.32 

.02 

10! 

CG 

-.35 

-1  .  19 

1  1  ! 

R I 

-.01 

.  12 

12! 

SB 

-.02 

1.25 

13! 

OS 

-.01 

.  01 

14  ! 

SM 

-.99 

1 . 86 

15! 

SO 

-.91 

1 . 09 

16  ! 

OM 

-.  1  1 

-.26 

17! 

00 

-.01 

.  52 

18  ! 

DB 

0 

.  26 

19  ! 

DC 

-.  49 

.  17 

20  ! 

DO 

-.01 

.  12 

RWQD. PRN 

IN 

BF 

-.  17 

.36 

PK 

-.09 

.  34 

ML 

-.24 

-.38 

PM 

-.56 

.  87 

PE 

-.05 

.  22 

WH 

-.03 

.  78 

CN 

-.32 

.02 

CG 

-.35 

-1  .  19 

R  I 

-.01 

.  12 

SB 

-.02 

1.25 

OS 

-.01 

.01 

SM 

-.99 

1 . 86 

SO 

-.91 

1 . 09 

OM 

-.  1  1 

-.26 

00 

-.01 

.  52 

DB 

0 

.  26 

DC 

-.49 

.  17 

DO 

-.01 

.  12 

NET  TRADE 


RWQT.TXT 
RWQT. CAL 
RWQT. PRN 


II-C.2.C.  Net  Trade 


RWQT. TXT 
RWQT** 

’N  = 

RWOS** ’ N 
-RWQD**’ N 


1 !  RWQT. 

n  * 

,  PRN 

q* 

-qd 

RWQT. PRN 

qs 

-qd 

3  ! 

BF 

1 

1 

BF 

1 

1 

4  ! 

PK 

1 

1 

PK 

1 

1 

5 ! 

ML 

1 

1 

ML 

1 

1 

6  ! 

PM 

1 

1 

PM 

1 

1 

7! 

PE 

1 

1 

PE 

1 

1 

8  ! 

WH 

1 

1 

WH 

1 

1 

9  ! 

CN 

1 

1 

CN 

1 

1 

10  ! 

CG 

1 

1 

CG 

1 

1 

1  1  ! 

R I 

1 

1 

R  I 

1 

1 

12! 

SB 

1 

1 

SB 

1 

1 

13! 

OS 

1 

1 

OS 

1 

1 

14  ! 

SM 

1 

1 

SM 

1 

1 

15! 

SO 

1 

1 

SO 

1 

1 

16  ! 

OM 

1 

1 

OM 

1 

1 

17! 

00 

1 

1 

00 

1 

1 

18  ! 

DB 

1 

1 

DB 

1 

1 

19! 

DC 

1 

1 

DC 

1 

1 

20  ! 

DO 

1 

1 

DO 

1 

1 
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II-C. 2 .d .  Price  Ratio 


PRICE  RATIO  RWPR.TXT  RWPR.TXT 

RWPR.CAL  RWPR$* 

RWPR.PRN  ’DEF  == 

RWCF'*  $ " P* 

(  ( RWQT$$  7  N- < 

IF  RWQT*$’N  GE  RWEQ$*7P0L  THEN 

RWEQ$$  •’  N 

ELSE 

— RWMQ$$ ’ POL 

) ) / <  RWQS* $ ’ N+RWQD$$ ’ N )  ) 


!  A  !  ! 

B  !  : 

C  !  ! 

d  :  : 

e  :  : 

F  !  ! 

G  ! 

H  ! 

1 

RWPR.PRN 

cp* 

qt-i  -f 

qt  >=eq 

eq 

el  se 

-mq 

/  (  qs+qd ) 

3 

BF 

1 

1 

1 

1 

1 

1 

1 

4 

PK 

1 

1 

1 

1 

1 

1 

1 

5 

ML 

1 

1 

1 

1 

1 

1 

1 

6 

PM 

1 

1 

1 

1 

1 

1 

1 

7 

F'E 

1 

1 

1 

1 

1 

1 

1 

8 

WH 

1 

1 

1 

1 

1 

1 

1 

9 

CN 

1 

1 

1 

1 

1 

1 

1 

10 

CG 

1 

1 

1 

1 

1 

1 

1 

1  1 

R I 

1 

1 

1 

1 

1 

1 

1 

12 

SB 

1 

1 

1 

1 

1 

1 

1 

13 

OS 

1 

1 

1 

1 

1 

1 

1 

14 

SM 

1 

1 

1 

1 

1 

1 

1 

15 

SO 

1 

1 

1 

1 

1 

1 

1 

16 

OM 

1 

1 

1 

1 

1 

1’ 

1 

17 

00 

1 

1 

1 

1 

1 

1 

1 

18 

DB 

1 

1 

1 

1 

1 

1 

1 

19 

DC 

1 

1 

1 

1 

1 

1 

1 

20 

DO 

1 

1 

1 

1 

1 

1 

1 

RWPR.PRN 

cp* 

qt-i  i 

qt>=eq 

eq 

el  se 

— mq 

/ <  qs+qd ) 

BF 

1 

1 

1 

1 

1 

1 

1 

PK 

1 

1 

1 
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1 

1 

1 

ML 
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1 
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1 

1 

1 

1 

PM 
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1 

1 

1 

1 
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1 
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1 

1 

1 
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1 
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1 

1 

1 

1 

1 

1 

1 
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1 

1 

1 

1 
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1 

1 
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1 
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1 
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1 

1 

1 

1 

1 
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1 

00 
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1 

1 

1 
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1 

DB 

1 

1 

1 

1 

1 

1 

1 

DC 

1 

1 

1 

1 

1 

1 

1 
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1 

1 

1 

1 

1 

1 

1 
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Internal  Price 


II-C.3.  Templates  and  Input  Matrices  for  the  Creation  of  GOL  Equations  for 
the  World  Market  Clearing  Mechanism 


II-C.3. a.  World  Trade 


WORLD  WDT.TXT 

TRADE  WD.CAL 

WDT. PRN 


WDT.TXT 
WDOT  * * 

’ DEF  == 
##QT*$ 
-t-##QT»* 
■*-##QT 
+##OT*<fc 
+##OTt* 
+##0T** 
+  ##DT 
+##QT*S 
+##0T*$ 
+  ##0T  t  $ 
+  ##QT*S> 
+##0T** 
+##QT$$ 
+##QT*S 
+##QT$* 
+##QT*S 
-*-##QT$$ 
+##QT** 
+##QT*4. 
+##0T*$ 
+##QT*$ 
+  ##QT*«S 
+##OT$$ 
+*#OTi* 
+##0T*$ 
-t-##QT*$ 
+RW0T44 


!  A 

!  B  ! 

:  c : 

!  D  ! 

:  E ! 

:  f  i 

i  g  : 

!  H : 

II! 

!  J  !  ! 

!  K  !  !  L  ! 

!  M  ! 

!  N  ! 

!  0  1 

!  P  ! 

!Q  ! 

!  R  ! 

!  S  ! 

IT! 

!  U  ! 

!  V  ! 

!  W  ! 

!-X  ! 

!  Y  ! 

!  Z  ! 

1  ! 

WDT 

US 

CN 

EC 

WE 

Jp 

AZ 

SF 

EE 

SO 

CH  MX 

CA 

BZ 

AR 

VE 

LA 

AF 

EG 

ME 

ND 

OS 

DO 

TH 

SA 

EA  OA 

BF 

1 

1 

1 

1 

4  ! 

PK 

1 

1 

1 

1 

5  ! 

ML 

1 

1 

1 

1 

6  ! 

PM 

1 

1 

1 

1 

7  : 

PE 

1 

1 

1 

1 

8  ! 

WH 

1 

1 

1 

1 

9  : 

CN 

1 

1 

1 

1 

io : 

CG 

1 

1 

1 

1 

1  1  ! 

R I 

1 

1 

1 

1 

12 : 

SB 

1 

1 

1 

1 

13! 

OS 

1 

1 

1 

1 

14  ! 

SM 

1 

1 

1 

1 

15  ! 

SO 

1 

1 

1 

1 

16  ! 

OM 

1 

1 

1 

1 

17  ! 

00 

1 

1 

1 

1 

18  ! 

DB 

1 

1 

1 

0 

19  ! 

DC 

1 

1 

1 

0 

20  ! 

DO 

1 

1 

1 

0 
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WDT  US  CN  EC  WE  JP  AZ  SF  EE  SV  CH  MX  CA  BZ  AR  VE  LA  AF  EG  ME  ND  OS  DO  TH  SA  EA  OA  RW 


BF  1  1  1  _  1 
PK  1  1  1  _  1 
ML  1  1  1  _  1 
PM  1  1  1  _  1 
PE  1  1  1  _  1 
WH  1  1  1  _  1 
CN  1  1  1  _  1 
CG  1  1  1  _  1 
RI  1  1  1  _  1 
SB  1  1  1  _  1 
OS  1  1  1  _  1 
SM  1  1  1  _  1 
SO  1  1  1  ~  1 
OM  1  1  1  “  1 
00  1  1  1  _  1 
DB  1  1  1  “ 

DC  1  1  1  ~  ~ 
DO  1  1  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


ABS.  VAL 

WORLD 

TRADE 


WDA. TXT 
WD. CAL 
WDA. PRN 


II-C.3.b.  Absolute  Value 
of  World  Trade 


WDA. TXT 
WDAT  ** 

’ DEF  »= 

ABSV ’ F ( ##QT  S* ) 
♦ABSV’ F  (##QT*S) 
♦ABSV’ F  <##QTS«) 
♦ABSV’ F  <##QT*«) 
♦ABSV’ F  <##QT*») 
+ABSV’ F  <##QTS*) 
♦ABSV’ F <##QT**> 
-t-ABSV’  F  <##QT**> 
-t-ABSV’  F  (##QT*S) 
♦ABSV’ F (##QT**> 
♦ABSV’ F (##QT*») 
♦ABSV’ F  <##QT**> 
♦ABSV ’ F ( ##QT  ** ) 
♦ABSV’ F (##QT*») 
♦ABSV’ F  <##QT**> 
♦ABSV’ F  <##QT**> 
♦ABSV’ F  <##QT**) 
♦ABSV’ F  <##QT*S> 
♦ABSV’ F  <##QT*S) 
♦ABSV’ F  <##QT**> 
♦ABSV’ F (##QTS*) 
♦ABSV’ F  <##QT**> 
♦ABSV’ F  <##QT**) 
♦ABSV’F (##QT**> 
♦ABSV’ F (##QT$*) 
♦ABSV’ F (##OT*S) 
♦ABSV’ F  <RWQT**> 


WDA  US  CN  EC  WE  JP  AZ  SF  EE  SV  CH  MX  CA  BZ  AR  VE  LA  AF  EG  ME  ND  OS  DO  TH  SA  EA  OA  RW 


BF  1  1  1  _  1 

PK  1  1  1  _  1 

ML  1  1  1  _  1 

PM  1  1  1  _  1 

PE  1  1  1  _  1 

WH  1  1  1  _  1 

CN  1  1  1  _  1 

CG  1  1  1  _  1 

RI  1  1  1  _  1 

SB  1  1  1  _  1 

OS  1  I  1  _  1 

SM  1  1  1  _  1 

SO  1  1  1  _  1 

OM  1  1  1  _  1 

00  1  1  1  _  1 

DB  1  1  1 

DC  1  1  1  3 

DO  1  1  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 
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PRICE  RATIO 


WDPR.TXT 
WDPR. CAL 
WDPR . PRN 


WDPR. TXT 
WDPR** 

' DEF  == 

WDCP** ’ P 
♦  WDQT  ** ' DEF 
/  (  1  -t-WDAT  **  ’  DEF) 


II-C.3.C.  Price  Ratio 


i : 

WDPR. PRN 

Mdcp 

wd  qt 

/wdat 

2! 

BF 

1 

1 

1 

4  ! 

PK 

1 

1 

1 

5  ! 

ML 

1 

1 

1 

6 : 

PM 

1 

1 

1 

7 : 

PE 

1 

1 

1 

e : 

WH 

1 

1 

1 

9  i 

CN 

1 

1 

1 

10  i 

CG 

1 

1 

1 

1 1 : 

R I 

1 

1 

1 

12  ! 

SB 

1 

1 

1 

13 : 

OS 

1 

1 

1 

14 : 

SM 

1 

1 

1 

1 5  ! 

SO 

1 

1 

1 

16  1 

OM 

1 

1 

1 

17 : 

00 

1 

1 

1 

IB  ! 

DB 

1 

1 

1 

19 : 

DC 

1 

1 

1 

20  ! 

DO 

1 

1 

1 

WDPR. PRN  Mdcp 


wdqt  /wdat 


BF  1 

PK  1 

ML  1 

PM  1 

PE  1 

WH  1 

CN  1 

CG  1 

R I  1 

SB  1 

OS  1 

SM  1 

SO  1 

OM  1 

00  1 

DP  1 

DC  1 

DO  1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


PRICE  ESTIMATE  WDPE.TXT 

WDPE. CAL 
WDPE. PRN 


II-C.3.d.  Price  Estimate 


WDPE. TXT 
WDPE** 

’ DEF  == 

WDPT  4* ' N* ( IF 

(WDPR**’ DEF  GT  WDCL**'P> 

THEN 

< 1-WDCL**’ P) 

ELSE 

(IF 

(WDPR**’ DEF  LT  -WDCL**’P> 
THEN 

(  1-rWDCL**’  P) 

ELSE 

(  1-WDPR**’ DEF) 

)  ) 
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II-C.3.e.  World  Trade  Price  Estimate 


WORLD  TRADE  PRICE  WDPT.TXT 
WDPT. CAL 
WDPT. PRN 


WDPT.TXT 
WDPT  %  $ 

’  N  = 

WDPE**?  DEF 


A  !  !  B 


i : 
n  < 

WDPT. PRN 

wdpe 

3  ! 

BF 

1 

4 : 

PK 

1 

C  l 

ML 

1 

6 : 

PM 

1 

7  ! 

PE 

1 

8 : 

WH 

1 

9 : 

CN 

1 

io  : 

CG 

1 

i  i  : 

R I 

1 

12 : 

SB 

1 

13! 

OS 

1 

3  4  i 

SM 

1 

15  ! 

SO 

1 

16  ! 

OM 

1 

17  ! 

00 

1 

18  ! 

DB 

1 

19  ! 

DC 

1 

20  ! 

DO 

1 

WDPT . PRN  wdpe 

BF  1 

Pk  i 

ML  1 

PM  1 

BE  1 

WH  1 

CN  l 

CG  l 

KI  1 

SB  l 

OS  1 

SM  1 

SO  1 

OM  i 

00  l 

DB  1 

DC  1 

DO  1 
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III.  Concluding  Comments 


The  programs  referenced  in  this  report  allow  a  researcher  a  variety  of  ways 
to  develop  models  in  TROLL  for  GOL  (or  other  purposes).  Appropriate  reference 
manuals  must  be  consulted  for  details  about  statistical/simulation  packages 
such  as  TROLL  and  SAS .  Reference  materials  must  also  be  consulted  when  using 
mainframe  programs/systems  such  as  TSO  or  micro  computer  programs/languages 
such  as  SUPERCALC  and  BASIC. 

A  researcher  usually  begins  a  modeling  exercise  by  choosing  a  model 
specification  and  assembling  appropriate  data.  To  the  extent  that  a 
specification  can  be  standardized  or  can  follow  some  of  the  GOL  standard 
specifications,  the  programs  in  this  report  can  greatly  simplify  the  modeling 
task.  For  convenience,  data  can  be  entered  into  SUPERCALC  on  a  micro  computer 
and  can  be  transformed  to  the  TROLL  data  format  by  the  program  SCTROLL. 

TROLLFRM  can  be  used  to  set  up  a  TROLL  file  to  contain  models  and  data. 

Models  or  parts  thereof  can  be  cloned  from  existing  U.S.  versions  via  mainframe 
computer  techniques  presented  in  this  report.  Alternatively,  the  researcher 
can  begin  with  the  templates  and  input  matrices  in  this  report,  modify  them 
to  suit  his  specification,  and  create  groups  of  model  equations  for  TROLL 
on  the  micro  computer  using  EQWRITE  and  EQDUPLIC.  As  is  true  with  the  data, 
once  TROLL  statements/equations  are  created,  they  can  be  telecommunicated 
to  the  mainframe  computer  for  entry  into  the  user's  TROLL  file. 

Various  micro  computer  utility  programs  help  the  researcher  with  the 
preparation  of  data  and  model  equations.  Mainframe  computer  routines  and 
TROLL  'MACRO'  programs  can  help  the  researcher  to  simulate  his  model  and 
display  the  simulation  results. 
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IV.  Appendix  -  Program  to  convert  SUPERCALC  file  to  MICROSTAT  file 

This  program  converts  a  SUPERCALC  xx.  PRN  file  to  a  direct  access 
file  which  can  be  read  by  MICROSTAT  (trademark).  The  SUPERCALC  file 
must  have  variable  names  (no  more  than  20)  at  the  top  of  data  columns. 
See  references  manuals  on  MICROSTAT  for  details  on  using  this  package. 


SCMICRO . BAS 


10 

20 
30 
40 
50 
60 
70 
80 
90 
1  00 
1  10 
1  20 
1  30 
140 
150 
1  60 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


THIS 

LINE 

LINE 

LINE 

LINE 

LINE 


AS  FOLLOWS: 
MEANS  COLUMN 


VAR  I ABLE  NAMES  OVER  DATA  COLUMNS 
BLANK  LINE 

1ST  OBSERVATION  OF  ALL  VARIABLES 
2ND  OBSERVATION  OF  ALL  VARIABLES 
ETC. 

NOTE  THAT  A  MICROSTAT  ACCEPTS  A  MAXIMUM  OF  20  VARIABLES  AND 


VARIABLES  NAMES  MUST  BE 


CHARS.  OR  LESS. 


REM  PROGRAM  CREATED  BY  VERNON  OLEY  RON INGEN  -  MAR.  24.  1983 

REM 

REM  THIS  PROGRAM  REQUIRES  AN  INPUT  SUPERCALC  .PRN  FILE 
REM  LINE  1  -  VARIABLE  NAMES  OVER  DATA  COLUMNS  (NO  NAME 
REM 
REM 
REM 
REM 
REM 
REM 
REM 

CLEAR  5000 
GOSUB  1110 

DIM  D<25, 50) , V* ( 1 , 50) 

PRINT"  S  C  M  I  C  R  0  BY  VOR'TPRINT 

PR  I  NT “PROGRAM  TO  CONVERT  A  SUPERCALC  ***.PRN  DATA  FILE 
PRINT "FILE  READABLE  BY  MICROSTAT  < TRADEMARK >": PR I NT 
I  NF'UT  "ENTER  'NAME7  OF  SUPERCALC  (NAME.  PRN)  FILE"?N* 

F*="B: "+N*+" , PRN" 

REM - READ  SUPERCALC  FILE 

PRINT: PRINT "READING  FILE  ";FS: PRINT 
OPEN" I " , 1 , F* 

1=0: J l=l 

LINE  INPUT  #1,W* 

JO=LEN (W*> / 9 

FOR  J=1  TO  JO 

S$=M I DS ( Wi , ( J— 1 ) *9+ 1,9) 

GOSUB  1 060 
V*<1, J1+J-1)=S* 

NEXT  J 

LINE  INPUT  #1,UJ* 

IF  EOF ( 1 )  THEN  420 
LINE  INPUT  #1,W* 

IF  VAL (LEFT* (WS, 9) ) =0  AND  M ID* ( W* , 9 , 1 ) < >” 0"  THEN  350  ELSE  370 
1=0: J 1=J0+1 
GOTO  250 


IS  IGNORED 


FILE  NAMES  MUST 


THAT 
BE  7 


TO  A  DIRECT  ACCESS" 


370  1=1+1 

380  FOR  J=1  TO  JO 

390  D < I , J 1+J-l ) =VAL (MID* <W*, (J-l)*9+l,9) > 
400  NEXT  J 
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410  GOTO  320 

420  CLOSE  1 :  PRINT:  F'RINT"FILE  ";F*;"  IS  CLOSED  "  :  PR  I  NT 
430  J 0= J 1  + JO—  1 

440  REM - PRINT  FILE  READ  IN 

450  PRINT "THE  SUPERCALC  FILE  READ  IN  IS:": PRINT 
460  FOR  J— 1  TO  JO 
470  PRINT  0* ( 1 , J) , 

480  FOR  11=1  TO  I 
490  PRINT  D  ( I  1 , J ) ; 

500  NEXT  II 
510  PRINT 
520  NEXT  J 

530  REM  - COUNT  VARAIBLES  TO  INCLUDE  IN  MICROSTAT  FILE 

540  M=0 

550  FOR  J=1  TO  JO 

560  I F  LEN ( V* < 1 , J ) ) < >0  THEN  M=M+ 1 
570  NEXT  J 

580  IF  M : 20  THEN  M=20 

590  REM  - - ———CONVERT  TO  MICROSTAT  EXAMPLE  NOTATION 

600  N= I 

610  Z*=Ni+"R" 

620  05=4 

630  CS>=N$+"  DATA" 

640  0$="B:"+N$ 

650  DIM  A* < JO) : SP*=SPACE* (5) 

660  0PEN"0" , 1 , OS 

670  REM - —WRITE  MICROSTAT  HEADER  FILE 

680  PRINT: PRINT" WRITING  MICROSTAT  HEADER  FILE  " ; Oi: PRINT 
690  print  #1 , 05; " , " ; n: " , " : M; " , " ? C*; " , " ; 

700  PRINT  05 ; ", " : N ; ", " ; M : ", " : C$ ; ", " ; 

710  FOR  J=1  TO  JO 

720  IF  LEN ( V* ( 1 , J ) ) =0  THEN  780 

730  IF  J  >20  THEN  780 

740  RSET  SP*=VS>  <  1 ,  J  ) 

750  A$(J)=SP$ 

760  PRINT  # 1 , A$ ( J ) 

770  PRINT  A*(J) 

780  NEXT  J 
790  Z$="B: "+Z$ 

800  PRINT  #1,Z* 

810  CLOSE  1 
820  PRINT  Z* 

830  PR I NT : PR I NT "FI LE  ";0*;"  IS  CLOSED" : PRINT 
840  REM  - - - WRITE  MICROSTAT  DATA  FILE 

850  PRINT: PRINT"WRITING  MICROSTAT  DIRECT  ACCESS  DATA  FILE.";Z$ 

860  PRINT: OPEN"R" , #1 , Z$, 05: FIELD  #1,05  AS  T$ 

870  FOR  J=1  TO  N 
880  K 1=0 

890  FOR  K= 1  TO  JO 

900  IF  LEN <V$ ( 1 , K> ) =0  THEN  980 

910  IF  K >20  THEN  980 

920  K 1 =K 1+1 

930  Y=D ( J , K) 

940  J1=K1+ < (J-l )*M) 

950  PRINT  Y: 

960  LSET  T $=MKS$ ( Y ) 

970  PUT  #1,J1 
980  NEXT  K 
990  NEXT  J 
1000  PRINT 
1010  CLOSE  1 

1020  F'RINT  :  PRINT  "FILE  ";Z$;"  IS  CLOSED"  :  PRINT 
1030  PR I NT"M I CROSTAT  FILE  ";0*;"  IS  READY" : PRINT 

1040  PRINT  "  THE  FILE  HAS  " ;  I ;  "  OBSERVATIONS  AND  ";M;"  VARIABLES" : PRINT 
1050  END 

1060  REM - - — - - SUBOUTINE  TO  REMOVE  LEFT  BLANKS  FROM  S$ 

1070  PO=INSTR <S* , "  ") 

1080  IF  P0=0  THEN  RETURN 
1090  S* =R I GHT $ ( SS , LEN ( S* ) — 1 ) 

1100  GOTO  1070 

1110  REM - - — SUBROUTINE  TO  CLEAR  SCREEN 

1120  PRINT  CHR* (27) ; CHR* < 58) : RETURN 
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Sample  input  SUPERCALC  xx.  PRN  file 


z 

o 

O 

-H 

>-* 

LU 

LU 

h- 

X 

X 

t- 

LU 

o 

04 

X 

> 

in 

41 

DJ 

in 

_1 

Ll 

O' 

o 

Ll 

XI 

rJ 

a 

i 

>0 

to 

3 

CM 

m 

Ll 

in 

CD 

1- 

04 

. 

c 

Ll 

! 

i 

■S' 

1 

i 

CN 

1 

z 

CM 

01 

04 

o 

O 

LU 

Ll 

04 

Ll 

o 

o 
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fi 

CM 

— < 

X 

1 

1 

1 

_) 

X 

z 

o 

M 

m 

C 

N 

X 

in 

Ll 

Ll 

in 

CD 

t- 

04 

O 

cn 


in  ri  04 


-h  04  f  'i  m 


O'  —  f  'i  li  o 

—  CJ  m  ri  o 

o  -o  un  04  o 

04  _  _  _ 


o  ~  oi  ri  — 

o  un  'O  *3" 


li  «r  ri  04  — 


H 

< 

H 

cm 

O 

c; 

CJ 
i— i 

s 

CO 

c 

•H 

C/1 

3 

4-1 

3 

O 

T3 

03 

4—1 

c 

•H 

l-i 

C. 

c 

0) 


'-4  O 


W  »-4 


O'  —  04  in  o 

—  04  fi  Y)  O 
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•-> 
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a. 

E 

CO 
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cn 
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G  X  X 
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x  x  u 
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hi 
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3 
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z 
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01 

o 
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M 
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